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W 
NDF; “RUSS 
NOF (LIBS 
LE CROOSSDS 


NDF ,PIVSWITCH 
LE SYSS$VECTOR - SYSTEM SERVICE VECTOR DEFINITIONS 


SYSSP1_VECTOR = P1 SYSTEM SERVICE VECTOR DEFINITIONS 


HANGE MODE SYSTEM SERVICE DISPATCHER 


m 


SYSSRMS_VECTOR = RMS SERVICE VECTOR DEFINITIONS 


s;MPSWITCH DEFINED 
Sate KERNEL SYS SRV DISPATCHER FOR SECONDARY 


;MPSWI 
v04-000' 


m 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


* ® 
* ® 
-* ® 
-* ® 
* - 
: THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
Se INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTUARE OR ANY. OTHER 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
S® TRANSFERRED. * 
-* ® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
:® CORPORATION * 
-* ® 
** * 
:t ® 
** & 
-* * 
-t ® 


C 
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SECRETE AKER EEAE HEAR AAA AAAEAAEAAAERAAATEAAAAAEKAATAAAAAee eee 


MODIFIED BY: 


v03-041 ee Lawrence J. Kenah 27-Jun-1984 
d R5 to entry mask for $CANEXH system service. 


v03-040 L023? L. Mark Pilant, 23-Apr-1984 9:21 
change ScuRenO from an exec mode service to a kernel mode 
service. This was made necessary by the S$CHKPRO eneenal 


; D. N. CUTLER 22-JUN-76 ; 
entry point) interface change. 


o 
Fa} 


- xo- 
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v03-039 


v03-038 


v03-037 


v03-036 


v03-035 


v03-034 


v03-033 


v03-032 


v03-031 


v03-030 


v03-029 


v03-028 
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MMD0250 neg Dumont fe Feb-1984 17:49 
dd support for SMTACCESS installation specific accessibility 
rou 


DASO001 David Solomon 20-Feb-1 

Implement new ges'gn for RMS sed eorte to SYSSOUTPUT 

(vs V03-019). Echo is now e pert aller ode AST 

a declared in RMS\RM EXRMS. *thetge INCB/DECB” of FAB/RAB 
busy bit to BISB/BICB, now that we have room. 


$SA0004 Stan Amway 28-Dec-1983 

For SSETPFM, changed number of parameters from 1 to 4 

and changed on mask to save R2=-R11. 

TMKO002 odd M 19-Nov-1983 

The entry point ie SASCTOID. —_ no longer be reached as a 
branch destination from the executive mode dispatcher. 


A temporary entry point (EXESASCTOID) has been placed within 
this module, and a JMP is made from it to the real system 
service entry point (EXESSASCTOID) 


Also, change the entry mask for SYS$TRNLOG, so that R8& is 
now saved. 


TMKO001 Todd M 22-0ct-1983 
The entry points for SFINISH RDB and SIDTOASC can no 
longer be reached as branch destinations from the executive 
mode dispatcher. Temporary onery petats (EXESE INISH RDB and 
ed Seda SC) have oeee Laced within this module, and from 


a JMP is made e real system service entry points 
CEXESSFINISH *RDB a MEXESSIDIOAS Pe 
PRBO254 Paul Beck 15-Sep-1983 14:49 


1) Correct the way synchronous CJF services are defined. 
(2) Define loadable RUF services. 


WMC0029 Wayne Cardoza es -1983 
Loadable services should not be uncond tenet y inhibited. 
Ada an alternate CHMx argument to LDBSRV 


DwWT0125 David W. Thiel 22-Aug-1983 
Remove CHECKARGLIST and calls to same. 

MKLO167 y Kay Lyons 19-Aug-1983 
Generate ean” sbrvite vector for CUFSCETE I. 
KBT0578 eith B. Thompson 88-Aug-1983 
Add parameter to  SEILESCAN 

RASO178 Ron Schaefer 29-Jul-1983 


Add code to detect the AST/non-AST RMS FAB/RAB race 
condition where an RMS operation is initiated while 
the user FAB/RAB is still waiting for completion of 
previous operation. 


wWMC0028 Wayne Cardoze 29-Jun-1983 


o 
3 


> 


oad >>- 


oO 
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Add CJF services. 


: MPS 
; vO3-027 wMc0027 Wayne Cardoza 23-Jun-1983 

: Make old Logical ors | services ‘‘all mode'’. 

: Changes to image activator vectors. 

: V03-026 ywHO222 Jeffrey w. ay-1983 

3 Add LDOBSRV macro for vector "act indutnia ° Be etree. 

: services. 108 
: VO3-025 DMW4035 DMWalp 26-May-1983 

: Intergate new logical name structures. 

: V03-024 LMP0109 Mark Pilant, 28-Apr-1983 15:53 

: Make SCHKPRO an EXEC mode system service to allow examination 

; of various me data structures. 

; V03-024 RASO147 chaefer 28-APR-1983 

; Add SFILESCAN. agg” R and RS to SSETPRN register mask. 208 
: VO03-023 JLV0244 Jake. VanNo 27=APR-1983 

3 Add SBRKTHRUW. Change $BRDCST to all ne service. 

; SBRDOCST now uses $8 KTHRU to do real work. 308 
; v03-022 LMP0099 L. Mark Pilant, 13-Apr-1983 19:15 

3 Add the SCHKPRO system service. 

: v03-021 ACGO319 Andrew C. Goldstein, | 21-Mar-1983 13:51 

; Add S$GRANTID and SREVOKID services 

: v03-020 JLV0234 Jake VanNoy 1-MAR-1983 

: Add SBRKTHRU service. _ 
: v03-019 RASO120 Ron Schaefer 25-Feb-1983 : A 
; Add support to echo SYSSINPUT to SYSSOUTPUT. 3 | 
3 This involves ay the return code from RMS for $GET; 3,3 
3 if the special status oe ECHO (not returned to users) $ 

3 is found, then create a RAB on the caller's stack and 3 T 
: execute a $PUT sen FR to echo the Line. 3 7 
: A certain amount of RMS synchronization code was : 

3 shuffled around in order to make room for this. s= 
: vO3-018 ACGO317 Andrew C. Goldstein, 22-Feb-1983 15:16 | acc 
: Fix off-by-one in kernel arg vector 

: V03-017 RSHO004 Sco 10-Feb-1983 

3 Added $ASCTOID, SF INiSH. tape ae SIDTOASC me system service list 

: V03-016 RNGOO16 Rod N. Gamache 1-Feb-1983 

3 Added $GETLKI to Ad service list ACC 
: v03-015 wMCO01S Wayne Cardoza 12-Jan-1983 

3 Put back accidentally deleted space holder for RMS synchronization. 

; VO3-014 DMW4023 DMWalp 7=Jan-1983 KIN 
3 Added S$SCRELNT, SCRELNM, SDELLNM and $STRNLNM 10$ 
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v03-011 


v03-010 


v03-009 


v03-008 


v03-007 


v03-006 


v03-005 


v03-004 


v03-003 
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KDM0033 Kathleen D. Morse 13-Dec-1982 
Correct usage of an nter locked Jnstruction to flush 
the hardware cache queue. 


ROWO 146 Ralph 0. Weber 6-DEC-1982 

Insert routine header comments for INHEXCP, CHECKARGLIST, 
and EXESCMODKRNLX (MPS$CMODKRNLX). Move thi ings around $0 

that EXESCMODKRNL (MPSSCMODKRNL) header comments -" eoee 
GEE ECOORK. Rs ODKRNL) and ASTEXIT comments ar 

ASTEXIT. Make basic kernal-mode .PSECT definition ler. YSCMODK 
or MPS$CMOD1 paeereres & otter executive mode code so that new 
code can be inserted that S.eceeerves routine headers 
conditional assenbly, and “PSECT detin ions. Backout ROW145, 
and in cEvB ace, correct cond tional epee BGEQU 10$ 


a? 5 Ralph 0. Weber 29-NOV-1982 

e EXESEXCPITN (and MPSSEXCPTN) to before ASTEXIT (or 
MPSSAS STEXIT) in an attempt to make branch destinations in 
EXESCMODKRNL reach. 


KDM0030 Kathleen D. Morse 18-Nov-1982 
Add logic to MPCMOD that allows the primary to execute 
secondary-specific code, without turning into a secondary. 


MLJ0099 rtin L. Jack, 20-Oct-1982 19:42 
Complete vo3-002" “4 seeract tae *mode and argument count of 
SSNDJBC and removing temporary stubs. 


R1HOOO1 Richard Be teatvedt 1=-Jun-1982 
Correct handling of AST q by secondary processor to 
avoid scene some AST notificat ons by incorrectly computing 
PHD$B_ASTLV 

KDM0018 Kathleen D. Morse | 30-Sep-1982 

Add MPSWITCH Logic to create a kernel system sory ge 
dispatcher for the secondary processor of an 11/78 
$TJ3028 Steven T. dettrers 26-Sep-1982 
Added SERAPAT wines service vector. 

DwWT0058 David Thiel 11-Aug-1982 
Eliminate use of R2 Cnite waiting for service 
completion. 

JWHO001 Jeffrey W. Horn 26-Jul-1982 


Add new RMS ‘ieee * R SRUHNDLR, an un-documented service 
which acts as the Recovery Unit handler for RMS. 


PHLO102 Peter H. Lipman 16-Jul-1932 
Fix new SYNCH Logic to always return SS$_NORMAL, 
not access [OSB if error from service, and return 
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error status from SSETEF if event flag cluster went away 


v03-002 PHLO101 Peter H. Lipman 17-Jun-1982 
Add $SYNCH system service and fix $Q]0W and SENQW to use the 
new code for waiting for the combination of EFN and 10SB 


Improve readability of conditionals. 


Add SGETOVIW, SGETJPIW, SGETSYIW, SSNDJBC, SSNDJBCW, and 
SUPDSECW. ALL the waiting versions use common code. 


CHANGE MODE SYSTEM SERVICE DISPATCHER 
MACRO LIBRARY CALLS 


SACBOEF ;DEFINE AST CONTROL BLOCK OFFSETS 
SCHF DEF sDEFINE CONDITION HANDLING OFFSETS 
SENQDEF sDEFINE ENQ SYSTEM SERVICE ARGS 
SGETDVIDEF sDEFINE GETDVI SYSTEM SERVICE ARGS 
SGETJPIDEF sDEFINE GETJPI SYSTEM SERVICE ARGS 
SGETLKIDEF sDEFINE GETLKI SYSTEM SERVICE ARGS 
SGETSYIDEF sDEFINE GETSYI SYSTEM SERVICE ARGS 
SIPLDEF sDEFINE INTERRUPT PRIORITY LEVELS 
IF DF .MPSWITCH 
> ad ;DEFINE INTERLOCK BITS 
SPCBOEF ;DEFINE PCB OFFSETS 
SPHONEF sDEFINE PHD OFFSETS 
SPRDEF ;DEFINE PROCESSOR REGISTERS 
SPSLDEF ;DEFINE PROCESSOR STATUS FIELDS 
SRABDEF ;DEFINE RMS RAB FIELDS 
SRPBDEF sDEFINE REBOOT PARAMETER BLOCK 
$Q10D sDEFINE Q10 SYSTEM SERVICE ARGS 
SSGNDEF ;DEFINE SYSGEN PARAMETERS 
SSNDJBCDEF sDEFINE SNDJBC SYSTEM SERVICE ARGS 
SSSDEF ;DEFINE SYSTEM STATUS VALUES 
SSYNCHDEF sDEFINE SYNCH SYSTEM SERVICE ARGS 
SUPDSECDEF ;DEFINE UPDATE SECTION SYS SRV ARGS 

; LOCAL EQUATES 
CATO = 1a 
CAT? = 1a 
DEF _MASK = CATOICAT? ; INHIBIT FOR "ALL* AND ‘NOT EXIT 
EXC_MASK = CAT ; INHIBIT ONLY FOR ‘ALL' CASE 

LOCAL MACROS 


GSYSSRV - GENERATE SYSTEM SERVICE ENTRY VECTOR 
GSYSSRV SRVNAME ,MODE ,NARG, REGISTERS ,MASK ,NOSYNC 
WHERE : 
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: SRVNAME = SERVICE NAME LESS ANY PREFIX (SYS$,EXES,RMSS$S) 

; DE = MODE DESIGNATOR FOR SERVICE (K,E,ALL,R) 

: NARG = REQUIRED NUMBER OF ARGUMENTS 

; REGISTERS = REGISTER SAVE LIST 

; Sk = SERVICE INHIBIT MASK(BIT SET IN CAT INHIBITS) 

; NOSYNC = NON-ZERO IF RMS SYNCHRONIZATION CODE NOT TO BE INCLUDED 


— NDF -ARSSNTYCH »MODE ,NARG,REGS ,MASK=DEF MASK ,NOSYNC 


"IF 

-PSECT § pe tipsull QUAD 

“PSECT $$$000,QUAD 

QUAD 

“IF DF LIBSWITCH 

sieetan:* je 
TIF NDF MPSWITCH 


. WORD 
SRVNAME ° “MASK = “aNcREGS> 
eIFTF «= FMPSWITC 


“IF B 
Sy" MODE SRVNAME ,NARG,MASK 
SRV" MODE SRVNAME ,NARG, MASK ,NOSYNC 


END 
-ENDC ;MPSWITCH 
"BLKL «2 
et 
SRV" MODE SRVNAME , NARG, MASK 
SENDM GSYSSRV 


GCOMPSRVB = GENERATE COMPOSITE SYSTEM SERVICE ENTRY VECTOR BEGIN 
GCOMPSRVB SRVNAME ,REGISTER_MASKC ,PREF IX) 


WHERE: 
SRVNAME = SERVICE NAME LESS ANY PREFIX (SYS$, EXES) 
REGISTER_MASK = SYMBOLIC REGISTER MASK, E.G G10 MASK 
PREFIX ="IF SUPPLIED, THE PREFIX FOR THE SERVICE NAME. 
IF OMITTED, ‘SYSS'' IS ASSUMED. 


MACRO conssiitn eREGMSK ,PREF IX=SYS$ 
NDF ,RMSSWITCH 


cT EAS SEM 


CT $$$000,QUAD 


s 
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C 
GN QUAD KER 
DF 


"PREFIX'S 
COMPSTRT= 


:MPSWITCH 

-ENDM GCOMPSRVB 

GCOMPSRVE = GENERATE COMPOSITE SYSTEM SERVICE ENTRY VECTOR END 
GCOMPSRVE QUADWORDS 


WHERE: 
QUADWORDS = NUMBER OF QUADWORDS TO RESERVE FOR VECTOR 


.MACRO GCOMPSRVE QUADS 
cIF NDF ,MPSWITCH 

TIF NDF -RMSSWITCH 
DF tL ,LIBSWITCH 


COMPSIZE=.-COMPSTR 
IF ofa QUADS*8-COMPSIZE 
-BLKB QUADS *8-COMPS1ZE 


- ERROR ; VECTOR EXCEEDS ALLOCATED SIZE ; 


“ENDC =; MPSWITCH 
-ENDM GCOMPSRVE 


SRVK = GENERATE ENTRY FOR KERNEL MODE SERVICE 
SRVK SRVNAME ,NARG , MASK 


.MACRO SRVK, SRVNAME ,NARG, MASK 
w IF NDF -RMSSWIT TCH 


IF OF PSuIT CH 
CMKSC_ * SRVNAMES=RCASC 


IFF RPSWLTCH DEF INED 
CMKSC_ " SRVNAME=KCAS 
CHMK SSRUNAME 
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RET 

-PSECT YSCMODKN, BYTE 

= 

ASSUME NARG LE 127 

-PSECT YSCMODKX, BYTE 
CA ScTR 


"BYTE MASK 

*PSECT YSCHODK K BYTE 

+ SIGNED RD TERRES’ SRVNAME-KCASE#2 
SRVNAME=KCASCTR 
KCASCTR=KCASCTR#1 

. sMPSWITCH 

“ENDM = SRVK 
: SRVE - GENERATE ENTRY FOR EXECUTIVE MODE SERVICE 


«MACRO SRVE,SRVNAME ,NARG,MASK 
IF NDF ,MPSWITCH 


W 
“IF NDF -RMSSWITCH 
CMESC_ " SRVNAME=ECA s¢TR 

CHM #SRV NAME 


RET’ 
-PSECT YSCMODEN, BYTE 
ASSUME NARG LE 127 
[PSECT YSCMODEX,BYTE 
=ECASCTR 


“BYTE MASK 

[PSECT YS$CMODE,BYTE 

~SIGNED_WORD — EXES$'SRVNAME-ECASE+2 
SRVNAME =ECASCTR 
ECASCTR=ECASCTR#1 


-ENDC =: MPSWITCH 
-ENDM = SRVE 


MACROS FOR GENERATING RMS SYSTEM VECTORS 
-MACRO RMSSRV hg 3 NARG=1 ,REGS=<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>,- 


MASK ,NOSYNC= 
GSYSSRV SRVNAME,R,NARG, <REGS>,MASK,NOSYNC 
.ENDM = RMSSRV 


SRVR = GENERATE ENTRY FOR RMS SERVICE (EXEC MODE) 


.MACRO SRVR — SRVNAME, NARG, MASK ,NOSYNC 
c IF NDF ,MPSWITCH 
IF NDF -RMSSWITCH 

CMESC_'SRVNAME=RCASCTR 
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CHME fh 
- IF EQ NOSYNC 

IF gt" rs S ec RMSSYNC>=127, 

a Daag =RMSWBR ;RESET BRANCH DESTINATION 


”. RMSSYNC 


PSECT 1YSCMODEN.BYTE 
ASSUME NARG LE 127 
“PSECT VSCH 90EX BYTE 
eneascte MASK 


-PSECT SSSKMSVEC BYTE ,NOWRT 
stapes” WORD  RMSS'SRVNAME-RCASE+2 


SRVNAME=RCASCTR 
RCASCTR=RCASCTR#1 
1 


ENDC 

SENDM = SRV 
: SRVALL - GENERATE ENTRY FOR ALL MODE SERVICE 

.MACRO SRVALL, SRVNAME ,NARG, MASK 

NDF ,MPSWITCH 
iat NDF ,RMSSWITCH 
a#EXES' SRVNAME +2 

JENDC 

"ENDC = MPSWITCH 

-ENDM = SRVALL 


PAGE 
-SBTTL Macros for Loadable Services 


3 LDBSRV - Generate Loadable Service Vector 

3 LDOBSRV PREFIX,SRVNAME ,MODE ,REGS,SYN_EFN,SYN_IOSB,ALT_CHMX 

, Where: 

3 PREF IX - Prefix for system service vector gnery potas pene 
: SRVNAME - Service name less any prefix Se be ta $, etc.) 

; E - Mode designator for service (K,E,AL 

3 EG - Register save list 

; SYN_EFN - Event flag argument number ror _vavute 

: SYN_10SB - IO0SB argument number for SSYN 

3 ALT~ CHMX - Use same CHMx number as Rs Hy ee 


»-MACRD LDBSRV,PREFIX,SRVNAME ,MODE ,REGS,SYN_EFN,SYN_1OSB,ALT_CHMX 
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PREFIX** 


meci ren 


wITC 
Yiesu TCH 
PPE CE $$$0000,auap 
wtett QUAD 


SRVNAME : : 
.1F BLANK SYN_EFN 
~BLKL é 


NDF ,R 
NDF, “MPS 
IF OD 


-BLKL 4 
-ENDC 


ge =e 

"GORD. SMCREGS> 

SRVNAME' MASK = “M<REGS> 

ent “= "MOBE PREF IX,SRVNAME,SYN_EFN,SYN_IOSB,ALT_CHMX 
.ENDC =; ‘MPSWITCH 
-ENDC =; -RMSSWITCH 
> ENDM LDBSRV 
LVEC_K = Kernel Mode Loadable System Service Vector 
LVEC_K PREFIX,SERVICE,EFN,10SB 
~MACRO LVEC_K,PREFIX,SERVICE,EFN,10SB,ALT_CHMK 
TIF BLANK ALT  CHMK 
, CAKSC_ SERVICE = PREFIX'KCASCTR 
CMKSC_" SERVICE = ALT_CHMK 


€ 

CHMK #SERVICE 

.IF NOT BLANK EFN 
PUSAL 


WEFN 
PUSHL 


#10SB 
we a#EXESLDB_SYNCH 
a oan 


- ENDC 
IF sn ALT_C 
ICE = t= PREFIX'K CASCTR 
PREF AX KCASCTR = PREFIX" KCASCTR + 1 
SERVICE = ALT_CHMK 


[ENDE = LVEC_K 


LVEC_E = Exec Mode Loadable System Service Vector 
LVEC_E PREFIX,SERVICE,EFN,10SB 
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TP Btn yin PREFIX, SERVICE,EFN,JO0SB,ALT_CHME 
, CMESC_ “SERVICE = PREFIX*ECASCTR 


CMESC_"SERVICE = ALT_CHME 


CHME — #SERVICE 
“TF NOT_BLANK EFN 
PUSAL #EFN 
PUSHE #10SB 
rene a#EXESLDB_SYNCH 
RET 
ENDC 
ET 


IF BLANK ALT_CHME 
SERVICE ="PREFIX"ECASCTR 
PREFIX*ECASCTR = PREFIX'ECASCTR + 1 
SERVICE = ALT_CHME 


-ENDM = LVEC_E 


LVEC_ALL = Mode of caller Loadable System Service Vector 
LVEC_ALL PREFIX,SERVICE,EFN,1JOSB 
~MACRO LVEC_ALL,PREFIX,SERVICE,EFN,1OSB,ALT_CHMK 
JMP a#EXES SERVICE 
- IF NOT_BLANK EFN 
- ERROR ; SYNCH NOT ALLOWED FOR ALL-MODE SERVICES 


-ENDC 
-ENDM = =LVEC_ALL 


DF ,RMSSWITCH 


:RMSSWITCH 
. NDF ,LIBSWITCH 
IF NDF ,MPSWITCH 


IF 
ECASCTR=0 
IF 


GLOBAL SYMBOLS 

EXESC_CMSTKSZ==485 ;NUMBER OF LONGWORDS IN DISPATCH CALL FRAME 
"SBTTL CHANGE MODE TO EXECUTIVE DISPATCHER 

£" EXESCMODEXEC = CHANGE MODE TO EXECUTIVE DISPATCHER 

! THIS ROUTINE IS AUTOMATICALLY VECTORED TO WHEN A CHANGE MODE TO EXECUTIVE 
; INSTRUCTION IS EXECUTED. THE STATE OF THE STACK ON ENTRY IS: 


: INPUTS: 
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QO(SP) = CHANGE MODE PARAMETER CODE. 
Ratios = SAVED PC OF EXCEPTION. 

8(SP) = SAVED PSL OF EXCEPTION. 

OCAP) = NUMBER OF SYSTEM SERVICE CALL ARGUMENTS. 
4 (AP) = FIRST ARGUMENT. 


4*N(AP) = N'TH ARGUMENT. 
OUTPUTS: 

eeeTBSere 
NOTE: 


DISPATCH TO RMS ROU 


a? ASSUMES THAT R3 R8 ARE NOT DESTROYED 
BY THE THE SERVICE EXIT 


CODE FOR SUCCESSFUL ke tunis’ 


.PSECT YSCMODEX,BYTE 
. “.PSECT YSCMODE,QUAD 


sSTART OF THE MASK TABLE 


EXACCVIO: ;CHANGE MODE TO EXEC ACCESS VIOLATION 
MOVL = SP, FP :SET FP TO POINT TO CALL FRAM 
CMPW =—s- RO. ARCASCTR [1S THIS A BUILTIN OR RMS FUNCTION? 
BGEQU EXEDSP :NO, NOT NECESSARILY ACCVIO 
BRW ACCVIO_RET 
EXESEXCPTNE : ‘ sarc EIEN SERVICE EXCEPTION 
BUG CHECK SSRVEXCEPT NON-FATAL EXCEPTION IF Rt. EXEC MODE 
MOVE  CHFSL ~$1GARGLST (AP), R1 GET ADDRESS OF SIGNAL ARGUMENTS 
SEXIT_S CHFSL~S1G_NAME(R [AND EXIT WITH SIGNALS AS STATUS 
EXINSARG: SCHANGE MODE TO EXEC INSUFFICIENT ARGS 
CMPW =—s- RO, ARCASCTR [IS THIS A BUILTIN OR RMS FUNCTION? 
BGEQU EXEDSP [NO, NOT NECESSARILY INSARG 
BRW INSARG ; 
.ALIGN QUAD 
EXESCMODEXECX: : 
BICL3 8(SP),#PSLSM_CURMOD,RO ;CHECK THE PREVIOUS MODE 
BNEG EXESCMODEXEC™ NO CHECK NEEDED FOR NON-USER MODE 
MOVZBL (SP),R UP THE CHME CODE (MOD 256) 
BITBsw*B EMASKCRO] ,aACTLSGB_ séFItien ‘AND’ WITH THE INHIBIT MASK 
BEQL EXESCMOD 3 THIS cobe is 1S ALLOWED 
MOVZWL #SS$ TREE .R R1 :SET THE EXECPTION CODE 
BRW INHERCP tAND REFLECT IT 
-ALIGN QUAD 
EXESCMODEXEC: : ZCHANGE MODE TO EXECUTIVE DISPATCH 
TNOTE: MEMORY WRITING INSTRUCTIONS ARE 
SCAREFULLY INTERLACED WITH REGISTER TO 
TREGISTER OPERATIONS FOR SPEED. 
POPL RO TREMOVE CHANGE MODE PARAMETER FROM STACK 
PUSHAB W*SRVEXIT SRETURN ADDRESS FOR CALL FRAME 
MOVZBL RO,R1 :B RANGE OF CHME CODE VALUES 
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PUSHL FP ;SAVE FP 
mOVZBL WB _EXECNARGERII,R1 iGET REQUIRED NUMBER OF ARGUMENTS 
MOVAL a@#4(R1),FP ‘PAL EULATE NGTH OF ARGUMENT LIST 
cLRQ. = :PSW, REGISTER SAVE MASK FOR CALL FRAME 
IFNORD FP, (AP), EXACCVIO :BR {F ARGLIST INACCESSIBLE | 
MOVL  SP.FP [SET FP TO POINT T FRAME 
CMPB Ss CAP) CRY [CHECK FOR REQUIRED NUMBER OF ARGUMENTS 
BLSSU EXINSARG SINSUFFICIENT NUMBER OF ARGUMENTS 
: (RO HAS CHME CODE) 
EX EDSP: rif RO, #0, S*#ECASMAX [DISPATCH TO PROPER SERVICE ROUTINE 
ECA [START WITH 0 FOR CHME C 
EEAS 'BASE OF CHME CASE TABL ‘6 
PSECT YSCMODEN,BYTE TREQUIRED NUMBER OF ARG TABLE 
B_EXECNARG: [DEFINE TABLE BASE 
NOTE THAT THE OUT OF RANGE FALL THROUGH FROM THE CASEW FOLLOWS 


MANY PAGES LATER IN THIS cISTING (SEE “ILLEGAL CHME'’ SUBTITLE). 
-IFTF Regardless of MPSWITCH state 


Establish .PSECT for kernel-mode servicing code which follows 


IFT oy od not defined 

-PSECT YSCMODK, QUAD 

LIFF IMP SUITCH defined 

-PSECT MPSC UAD 

-IFTF ;Regardless of MPSWITCH state 


-SBTTL INHEXCP = Inhibited CHMK or CHME code handling 


INHEXCP = Inhibited CHMK or CHME code handling 
FUNCTIONAL DESCRIPTION: 


When the ability to use specified system services is inhibited 
; via the SSETSSF system service, this routine recetvgs $s control 
when of attempt to execute an inhibited system service occurs. 


IFT ;MPSWITCH not defined 
INHEXCP is called when no stack frame cleanup is required. 
INHEXCP1 is called when a call frame must be cleared from the stack. 


HMK or SS$_INHCHME 
>} the inn bited change pare code whose use was attempted 
) the offending PC and P 


INPUTS: 


' 
| 
| 

The result $68" ene code is a signaled exception whose signal arguments are: | 
} 


Leen ee —— 
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INHEXCP 
R1 SS error code (SS$_INHCHMK or SS$_INHCHME) 

Change mode parameter code 

Saved PC of exception 

Saved PSL of exception 


ooo 
oOo 
Cel diel 
” 
vw 
~~ 

nun 


INHEXCP1 
A change mode dispatcher call frame to be cleaned up 
RO = Change mode parameter code 
SS error code (SS$_INHCHMK or SS$_INHCHME) 
Saved PC of exception 
Saved PSL of exception 


con 
on 
a al 
un 
vv 
idl 
nun 


~IFF sMPSWITCH defined 
The exception condition is returned to the primary processor for execption 


handling. 
INPUTS: 
R1 = $S error code (SS$_INHCHMK or SS$_INHCHME) 
OO(SP) = Change mode parameter code 
O4(SP) = Saved PC of exception 
O8(SP) = Saved PSL of exception 


ENVIRONMENT: 


This code executes on the secondary processor. 
If interrupted at any point, may continue on the primary processor. 


IFT sMPSWITCH NOT DEFINED 


INHEXCP1: 
MOVL 12¢sP) FP ;PICK UP THE OLD FP FROM FRAME 
ADDL #5%4,SP [CLEAN OFF T 
PUSHL RO TRESTORE THE CHMX CODE 
.IFTF «= MPSWITCH 
INHEXCP: 
PUSHL R1 ;PUSH THE EXECPTION CODE 
PUSHL #4 [PUSH THE NUMBER OF ARGUMENTS 
.1FT | ;MPSWITCH NOT DEFINED 
jmp G*EXESREFLECT ;REFLECT THE EXCEPTION 
.IFF ss MPSWITCH DEFINED 
IFPRIMARY <JMP G*EXESREFLECT> | ;1F PRIMARY, THEN CONTINUE RIGHT ALONG 
"IF SECONDARY, RETURN PROCESS TO PRIMARY 
EXTZV #PSLSV_CURMOD,#PSL$S_CURMOD,16(SP),-(SP) ;CR PSL WITH PREV 
ROTL  #PSLSV~PRVMOD,(SP),(SP) ; MODE CORRECT AND CURRENT MODE = KERNEL 
PUSHAB GPEXESREFLECT SREFLECT THE EXCEPTION 
BRW MPSSMPSCHED : AND RETURN PROCESS TO PRIMARY 
tL ;MPSWITCH NOT DEFINED 


[SBTTL ASTEXIT SYSTEM SERVICE 


3¢ 
; ASTEXIT = SERVICE TO EXIT AN ACTIVE AST AND ALLOW PENDING ASTS TO 
: BE DELIVERED. 
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THIS SYSTEM SERVICE IS INVOKED WITH A CHMK wet eRT NOT CONTAINED IN 
A_STANDARD SYSTEM SERVICE VECTOR TO AVOID CLUTTERING THE STACK WITH AN 
ADDITIONAL CALL FRAME DURING AST EXIT PROCESSING. 

INPUTS 

OUT 


PUTS: 
PCB$B_ASTACT 


4 IS CLEARED FOR THE ISSUING MODE 
PHDSB-ASTLVL IS SET T 


E 
O THE ACCESS MODE OF THE NEXT PENDING AST, IF ANY. 


«ALIGN QUAD :** THIS IS ADDED TO FIX 
3** A BROKEN BRANCH INST. = 
3** BEQL ASTEXIT IN EXESCMODKRNL 


ASTEXIT: -EXIT ACTIVE AST 
EXTZV #PSLSV_CURMOD,#PSLS$S_CURMOD,4(SP),RO ;GET PREVIOUS MODE 
PUSHL  R2 sSAVE R2 (PUSHR IS SLOWER!) 
PUSHL R4 3 R 
VL SCH$GL_CURPCB,R4 [GET PCB CURRENT PCB ADDRESS 


#0 
SETIPL #IPL DISABLE KERNEL AST DELIVERY 
BBCCI 


RO,PCB$B_ASTACT(R4),10$ ;CLEAR AST ACTIVE BIT FOR MODE 
108: BSBW SCHSNEWL YL sCOMPUTE NEW AST LEVEL SETTING 
POPL RG RESTORE RG 
POPL R2 RESTORE R2 
REI 3 AN 


"pace sMPSWITCH DEFINED 

“SBTTL MPSSASTEXIT - AST EXIT SYSTEM SERVICE FOR SECONDARY PROCESSOR 
FUNCTIONAL DESCRIPTION: 
This is the AST exit system service routine for the secondary processor 
only. It clears the AST active bit for the appropriate mode, in the 
process’ PCB and then sets a new AST level (both in the PHD and the 
secondary’s processor register). Because an AST may be delivered by 
the primary while the secondary is executing this code, the routine 
is repeated until the head of the AST queue is stable. 
INPUTS: 


(SP) = PC at time of interrupt 
4(SP) = PSL at time of interrupt 


ENVIRONMENT: 


Executes on the secondary processor. 
It interrupted at any point, may continue on the primary processor. 


2 
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PSECT MPSCMOD2,BYTE 


MPSSASTEXIT: 
EXTZV #PSLSV_CURMOD,#PSLS$S_ CURMOD, 4(SP), He poet previous mode 
RS Save regist 
Save register (This is ngerer? 


v 
cox 
“vn 
==rNe 
YY 
@D 


PUSHL R Save register (than a PUSHR. 
VL W*MPSSGL alice RG set t address of current aeoacaa PCB 
SETIPL sable system even 


| 
Se 


ts 
Fleer AST active pit for this mode 
; Get address of AST queue 


# 
BBCCI RO. bease A ASTACT(R4),108 : 
10$: OVAL rest ASTQFL(R4) ,RO- 


MOVL Assume null AST level 

MOVL (8) RI Get flink 

CMPL ri Is the queue empt ? 

BEQL 208" Br on yes, set null AST Level 

CLRL Assume kernel mode 

ASSUME ACBS$V_KAST i 7 

TSTB ACB$B_RMOD(R1) ; Check for kernel AST 

BLSS 20$ Br if not kernel AST 

B1CB3 caer Acoso. RMOD(R1),R2; Get request mode 
20$: MOVL PCBSL BHD T,R :'Get address of PHD 

MTPR . ° STASTLY { 3 se : ASTLVL register 

MOVB PHD$B_ASTLVL(R3) ASTLVL_in PHD 

BBSSI acekev INTERLOCK U*MPSSGi_ INTeRLotk. 308 Flush cache queue 
30$: CMPL (RO) RT ; Has the head of the queue changed? 

BNEQ 10$ : Yes, repeat ASTLVL computation 

MOva (SP)+,R2 Restore registers 

POPL Re : Restore register 

REI 3; Return from interrupt 


-PSECT MPSCMOD1 ,QUAD 
MPSWITCH 


[SBTTL CHANGE MODE DETECTED ERROR HANDLING 


ACCVIO = ACCESS VIOLATION DETECTED IN ARGUMENT LIST 
INSARG = INSUFFICIENT ARGUMENTS SUPPLIED FOR SERVICE 
SSFAIL = ABNORMAL STATUS RETURNED BY SERVICE ROUTINE 


THESE ROUTINES TAKE THE APPROPRIATE ACTION TO RETURN THE ERROR INDICATION 
TO THE ORIGINAL CALLER. 


+ 


-ENABL LSB 

ACCVIO: 
MOVL tSET FRAME POINTER BEFORE RET 
CMPW 30° An :1S THIS AN UNRECOGNIZED CCDE? 
FF ARPSUITEN DEF INED 
Bceau 108 ZYES, NOT NECESSARILY ACCVIO 
‘ sMPSWITCH NOT DEFINED 
BGEQU KERDSP ZYES, NOT NECESSARILY ACCVIO 

ACCVIO_RET: : 
“IFTF =: MPSWITCH 
mOVZUL #SS$_ACCVIO,RO :SET ACCESS VIOLATION 

KINSARG: CHP RO, #KCASCTR :1S THIS AN UNRECOGNIZED CODE? 

10$:  BGEQU KERDSP SYES, NOT NECESSARILY INSARG 
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. 
— 


pMPSwITCH NOT DEFINED 
INSARG: ass$_1 


5-5 
TO sno MNe NH 


=" 


jnPsl 
Wo &SS$_INSFARG,RO 
F ;MPSQI 
SRVEXIT: 
SRVREI: 


EXESEXCPT 
MPSSEXCP 


zw BW 
o 


RO,SSFAIL 

sMPSWITCH NOT DEFINED 
sMPSWITCH DEFINED 
;MPSWITCH 

6 


F 
D 

;MPSWITCH NO 
CHECK tat thea 
U C 
F 


G_CHECK SSRVEX 
-MPSWITCH 


_ 
nn 


We © « —te 
s= 


— fT Co 
s4nonon 
rao" 42-4 


SSFAIL: B 
BEQL SRVREI 

BRW SSFAILMAIN 
LSB 


IFT sMPSWITCH not define 
; EXESCMODKRNLX = Fil 
sMPSWITCH defined 
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sSET INSUFFICIENT NUMBER OF ARGUMENTS 
sSET INSUFFICIENT NUMBER OF ARGUMENTS 


— 
am 
ox 
ze 
Ze 


AL COMPLETION 


sSYSTEM SERVICE EXCEPTION 

sSYSTEM SERVICE EXCEPTION 

ENTRY MASK 

UNEXPECTED SYSTEM SERVICE EXCEPTION 
UNEXPECTED SYSTEM SERVICE EXCEPTION 
TEST SEVERITY FIELD 


:1F EQL WA 
GOTO MAIN SSFAIL LOGIC 


Filtered Change Mode to Kernel Dispatcher 


d 
tered Change Mode to Kernel Dispatcher 


; MPSSCMODKRNLX = Secondary Filtered ge a Mode to Kernel Dispatcher 
-IFTF ;Regardless of MPSWITCH stat 


; When inhibiting of user mode system service calls has been enabled via the 


IFT . TCH not defined 
; SSINHIBIT SYSGEN porgeeter this routine -- not EXESCMODKRNLX -- is called 
oIFF ;MPSWITCH define 


SSINHIBIT SYSGEN parameter, this routine -- not MPSSCMODKRNLX -- is called 
-IFTF ;Regardless of MPSWITCH state 
yenouer a CHMK instruction is executed. The state of the stack on entry 
$: 


INPUTS: 


CHANGE MODE PARAMETER CODE. 
SAVED PC OF EXCEPTION. 
SAVED PSL OF EXCEPTION. 


= NUMBER OF SYSTEM SERVICE CALL ARGUMENTS. 
= FIRST ARGUMENT. 


4eN(AP) = N'TH ARGUMENT. 
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OUTPUTS: 
3 THE APPROPRIATE KERNEL MODE SYSTEM SERVICE IS INVOKED. 


IFT sMPSWITCH not defined 


-PSECT YSCMODKX,BYTE ;START OF THE MASK TABLE 
SYSS$GB_KMASK:: 
-BYTE 0 gALLOW FOR ASTEXIT (CHMK #0)!!! 


-PSECT YSCMODK,QUAD 
~1FF tag ot "aettned 


-PSECT MPSCMOD1,QU 
LF TF eapraibes of MPSWITCH state 
-ALIGN QUAD 
1FT ;MPSWITCH not defined 
EXESCMODKRNLX:: 
FF sMPSWITCH defined 
MPSSCMODK KRNLX:: 
FTF Arepprstess of Aisi state 
BICL3 ;CHECK THE PREVIOUS MODE 
IFT BSP) ASL not D Erin RED 
BNEQ  €XESCMODKRNL ;NO CHECK NEEDED FOR NON-USER MODE 
1FF SMPSWITCH DEFINED 
BNEQ “mPSSCMODK yNO CHECK NEEDED FOR NON-USER MODE 
IF TF Switch 
MOVZBL (SP),RO ;PICK UP THE CHMK CODE 
IFT ;MPSWITCH NOT DE FINED 
BITB W*SYS$GB_KMASKCRO o'crises SSFILTER ;"AND' WITH INHIBIT MASK 
BEQL EXESCRODERNL THIS CODE Is ALLOWED 
J 1FF -MPSW TCH DEF I 
B1TB 6*sy¥s RASKCROD, crerises SSFILTER ;"AND' WITH INHIBIT MASK 
rrte U-APSSCRODRRNL THIS CODE Is ALLOWED 
MOVZUL besa INHCHMK ,R1 3SET THE +a ot he CODE 
BRY INHERCP > AND REFLECT IT 
» PAGE 


~SBTTL CHANGE MODE TO KERNEL DISPATCHER 
+ 
IFT ;MPSWITCH NOT DEFINED 
; EXESCMODKRNL - " CHANGE MODE TO KERNEL DISPATCHER 
1FF MPSWITCH DEFIN 
; MPSSCMODKRNL - * SECONDARY CHANGE MODE TO KERNEL DISPATCHER 
-IFTF «=; MPSWITCH 


THIS ROUTINE IS AUTOMATICALLY VECTORED TO WHEN A CHANGE MODE TO KERNEL 
INSTRUCTION IS EXECUTED. THE STATE OF THE STACK ON ENTRY IS: 


INPUTS: 
00(SP) = CHANGE MODE panne Tee CODE. 
4 (SP) = SAVED PC OF EXCEPTION. 
8(SP) = SAVED PSL OF EXCEPTION. 


OO(AP) = NUMBER OF SYSTEM SERVICE CALL ARGUMENTS. 
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O4(AP) = FIRST ARGUMENT. 
4*N(AP) = N'TH ARGUMENT. 
OUTPUTS: 
THE APPROPRIATE KERNEL MODE SYSTEM SERVICE IS INVOKED. 


ALIGN QUAD 
. sMPSWITCH NOT DEFINED 
EXESCMODKRNL: : CHANGE MODE TO KERNEL DISPATCH 
° s:MPSWITCH DEFINED 
MPSSCMODKRNL: : s2NDARY CHANGE MODE TO KERNEL DISPATCH 
-IFTF «=; MPSWITCH 
NOTE: MEMORY WRITING INSTRUCTIONS ARE 
CAREFULLY INTERLACED WITH REGISTER 
; INSTRUCTIONS FOR SPEED. 
IF DF ,MPPFMSWT 
PUSHL  #*x40 sOFFSET INTO SCB 


BSBW = W“MPSSPFM_UNEXP [COUNT WHICH SYSTEM SERVICE IS EXECUTED 

ADDL #4,SP [CLEAN OFF SCB OFFSET 

POPL RO ;REMOVE CHANGE MODE PARAMETER FROM STACK 

.IFT | ;MPSWITCH NOT DEFINED 

BEQL STEXIT :1F ZERO, AST EXIT SYSTEM SERVICE 

VIFF -MPSWITCH DEFINED 

BEQL Ast TEX EXIT a :1F ZERO, AST EXIT SYSTEM SERVICE 

PUSHAB bSAVEXIT :RETURN, ADDRESS 

MOVZBL RO,R1 SBOUND RANGE OF CHMK CODES T 

AND 256 BYTES ACCESSIBLE FROM “. 2 RNLNARG 

PUSHL FP SAV 

.IFT | ;MPSWITCH NOT DEFIN FD 

MOVZBL WSYSSGB_KRNLNARG R1),R1 ;GET NUMBER OF REQUIRED ARGUMENTS 

MOVZBL 6*SYS$GB_KRNLNARGCR1),R1 ;GET NUMBER OF REQUIRED ARGUMENTS 

.IFTF  ;MPSWITCA 

PUSHL AP TSAVE AP 

MOVAL a#46(R1),FP :CALCULATE LENGTH OF ARGUMENT LIST 

CLRQ. = SP) :PSW AND REGISTER SAVE MASK 

IFT MPSWITCH NOT DEFINED 

iFworD FP CCVIO ;DECLARE ACCESS VIOLATION 

FF RbSUT TEN DEF INED 

ifword §P, (AP) .ACCVION ;DECLARE ACCESS VIOLATION 

LIFTF «=: MPSWITCH 

mov. §P,FP 7SET FRAME POINTER FOR CALL FRAME 

CMPB Ss CAP) RY [CHECK FOR REQUIRED NUMBER OF ARGS 

-IFT | ;MPSWITCH NOT DEFINED 

BLSSU  KINSARG i1F Lssy INSUFFICIENT ARGUMENTS 
KERDSP: MOVL Gr SCHSGL CURPCB,R4 [GET CURRENT PROCESS PCB ADDRESS 

CASEW ASMAX DISPATCH TO PROPER SERVICE ROUTINE 

FF eabsul Tcl DEF INED 
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BLSSU KINSARG1 sIF_LSSU, INSUFFICIENT A 
KERDSP: MOVL  G*CTLSGL_PCB,R4 :GET CURRENT PROCESS PCB 
CMPW 3S sé RO #WAITFR :1S THIS THE WAITER SYST 
BEQL $MPSSWAITFRI ;BR ON YES, EXECUTE SYS 
CMPW 3s, #WF LAND [1S THIS THE WELAND SYST 
BEQL $MPSSWFLAND1 7BR ON YES, EXECUTE Sv§ 
CMPW = s«RO, #WFLOR [1S THIS THE WELOR SYSTE 
BEQL MPSSWFLOR1 ;BR_ON YES, EXECUTE SYS 
ADDL  4#8,SP :CLEAN OFF PSW AND REG S$ 
POPL TRESTORE AP 
POPL SRESTORE FP 
MOVL _—RO, (SP) SREPLACE CHMK ON STACK OV 
IFPRIMARY <JMP G*EXESCMODKRNL> IF PRIMARY, THEN CONTINU 
“IF SECONDARY RETURN PRO 
EXTZV #PSLSV_CURMOD.#PSL$S_CURMOD,8(SP),-(SP) ;CREATE P 
ROTL  #PSLSV“PRVMOD.(SP),(SP) ; MODE CORRECT AND CURREN 
PUSHAB G*EXESCMODKRNL sEXECUTE THE SERVICE ON P 
BRW MPSSMPSCHED2 : AND RETURN PROCESS TO P 
ASTEXIT: 
BRB MPSSASTEXIT ;BRANCH ASSIST 
ACCVIO1: 
Rw ACCVI1O ;BRANCH ASSIST 
KINSARG1: 
BRW KINSARG :BRANCH ASSIST 
: BRANCH ASSISTS TO REACH SYSTEM SERVICES. 
MPSSWAITFRI: 
BRW MPSSWAITFR+2 :BRANCH ASSIST (PAST REG SAVE MASK) 
MPSSWFLAND1: 
BRW MPSSWFLAND+2 ;BRANCH ASSIST (PAST REG SAVE MASK) 
MPSSWFLOR1: 
BRw MPSSWFLOR+2 ;BRANCH ASSIST (PAST REG SAVE MASK) 
LIFTF «=: MPSWITCH 
KCASE: :BASE OF CHMK CASE TABLE 
KCASCTR=1 :CHMK CODES START AT 1 
.IFT — ;MPSWITCH NOT DEFINED 
-PSECT YSCMODKN,BYTE ;REQUIRED NUMBER OF ARG TABLE 
SYS$GB_KRNLNARG==, 
.BYTE 0 SENTRY FOR CODE ZERO 
; :MPSWITCH 
.ENDC = S LIBSWITCH 
“FF SRMSSWITCH 
“IF NDF »MPSWITCH 
PAGE 


-SBTTL SYSTEM SERVICE VECTOR DEFINITION 


DEFINE ALL SYSTEM SERVICE VECTOR POSITIONS 


IF NDF LIB 
“PSECT 338000 QUAD 


vurTo 
am] 
m-O 


SWITCH REAL PSECT IF NOT LIBRARY 


. 
e 
. 
. 
e 
. 
e 
. 
e 
. 
o 
. 
e 
. 
eo 
. 
os 
. 
oe 
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FF SOTHERWISE ABS PSECT 
.PSECT $$$0000,QUAD,ABS 
sit NDF ,PIVSWITCH 
.=*x80000000 ;BIASED AT THE START OF SYSEM SPACE 
IPF :PIVSWITCH 
=*X7F FEDEOO sBIASED IN P1 SPACE 
-ENDC = s PIVSWITCH 
[ENDC © SLIBSWITCH 
SEND :MPSMITCH 
LIF SRMSSWITCH 
v IF NDF »MPSWITCH 
VECBASE: :VECTOR AREA BASE 
; Q10 AND WAIT COMPOSITE SERVICE 
; THE Q10 AND WAITFR COMPOSITE SERVICE OCCUPIES THE FIRST TWO 
: SYSTER SERVICE VECTOR POSITIONS. IT IS CONSTRUCTED BY 
; TWO DISCRETE CHMK INSTRUCTIONS, ONE PERFORMING THE Q10 
; ANDY THE OTHER PERFORMING THE WAIT ICH RELY UPON TH HE 
; OMPATIBLE ARGUMENT LISTS OF THESE fWO SERVICES. WAITFR H 
; A SINGLE ARGUMENT, THE VENT FLAG, WHICH IS THE FIRST ARCUBENT 
: N THE G10 ARGUMENT L 


GCOMPSRVB Q10W,- Q10 AND WAIT 
<QI10_ MASK ! WAITFR MASK CLREF_MASK ! SETEF _MASK> 
IF cuss CH 


CHMK #Ql ; ISSUE Q1/ 0 
BLBC [DON'T WAIT IF ERROR QUEUEING REQUEST 
PUSHL Bros. OOSe TAP) [FETCH IOSB ADDRESS IF SPECIFIED 

R @10_ENQ SYNCH [USE COMMON Q10W, ENQW SYNCH CODE 


BRW 
.ENDC LT BSWi TCH 
GCOMPSRVE 

-ENDC ;MPSWITCH 


. :RMSSWITCH 
IF NDF ,MPSWITCH 


sRESERVE 2 QUADWORDS FOR VECTOR 


: CONDITION HANDLER DISPATCH VECTOR 
: THE FOLLOWING VECTOR IS INCLUDED IN THE SYSTEM VECTOR SPACE SO THAT BOTH 
: HARDWARE “DETECTED (EXCEPTIONS) AND SOFTWARE-DETECTED (SIGNALS) CONDITIONS 
: CAN BE DISPATCHED FROM THE SAME CALL INSTRUCTION. THIS IS NECESSARY SO 
: THAT THE STACK SEARCH ALGORITHM AND THE UNWIND SYSTEM SERVICE CAN DETECT 
> AND PROPERLY PROCESS MULTIPLE ACTIVE SIGNALS AND/OR EXCEPTIONS. 

.ALIGN QUAD 

"IF DF LIBSWITCH 

“IF DF PIVSWITCH “DON'T PUT IN P1 
SYSSCALL_HANDL “i Eo TXZEFEDEOO + *x80060000 
SYSSCALL. HANDL: ;CONDITION HANDLER DISPATCH 


TENDC ;PIVSWITCH 
w1FF TLIBSWITCH 
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CALLG 4(SP),(R1) ;CALL CONDITION HANDLER 
: RET INSTRUCTION FOR Q10W ABOVE 
G10W_RET: 

RET 

IFT -LIBSWITCH 

-BLKQ =f ;RESERVE SPACE 

-ENDC :LIBSWITCH 

SENDC SWITCH 

IFF RNSSUIT CH 

vIF ADF MPSWITCH 


: COMMAND INTERPRETER DISPATCH VECTOR 


; THE FOLLOWING wVECTOR 1S INCLUDED IN THE SYSTEM VECTOR SPACE SO THAT DIRECT 
; CALLS CAN BE MADE TO THE CURRENT COMMAND INTERPRETER WITHOUT HAVING TO KNOW 
; THE ADDRESS OF ITS SERVICE ROUTINES 
-ALIGN QUAD 
IF OF LIBSWITCH 
SYSSCLI:: ;COMMAND INTERPRETER DISPATCH 
-IFF =: LIBSWITCH 
SWORD PNCR2.RS_RE»RS.R6,R7.RB, Rg. R10,R11>_;SAVE R2-R 
JMP CLIJM INDIRECT DISPATCH TO CURRENT COMMAND INTERPRETER 
-IFT = ; LIBSWITCH 
-BLKQ | ;RESERVE SPACE . 
.IFF RMSSWITCH 
ALIGN 


QUA D 
-ENDC ;RMSSWITCH 
yrs sMPSWITCH 


AGE 
; DEFINE REMAINING SERVICES 
GSYSSRV AD ISTE. K,3 yADJUST OUTER MODE STACK POINTER 
3°R4_RS,RO>,- SREGISTERS R2-R6 
ene RAS TEXCEPTION MASK 
GSYSSRV AD bu0Ssk ADJUST WORKING SET LIMIT 
ri “ise SREGISTERS R2-R5 
GSYSSRV at ine i,- yALLOCATE DIAGNOSTIC PAGE 
3,Rh, aS, R6,R7> SREGISTERS R2 
GSYSSRV AL ALLOr SALLOCATE DE Ice 
eek Ra RS.R6> SREGISTERS R2-R 
GSYSSRV as SCEF Feo ASSOCIATE COMMON EVENT FLAG CLUSTER 
R Ri aS /R6,R7,RB,RO.RIO,R11> REGISTERS R2-R11 
GSYSSRV as fim [CONVERT TO ASCII TIME 
ie né (As: *R6> SREGISTERS R2-R 
GSYSSRV as SSIGN iASSIGN 1/0 CHANNEL 
a3 Kd "RS.RG.R7.RB.RO-RIO.RI1> :REGISTERS R2-R11 
GSYSSRV Sint iA’ ALL,2.- SCONVERT TO BINARY TIME 
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<R2,R3, Rs R5S.R6,R7,RB8> ;REGISTERS R2- 
GSYSSRV CAN ANCEL «Kk :CANCEL 1/0 ON HANNEL ; 
R Re RS.R6,R7,R8> REGISTERS R2- 
GSYSSRV cant is :CANCEL TIMER REQUEST ; 
Re RS> TREGISTERS R2= 
GSYSSRV CANUAR: K SCANCEL WAKE UP REQUESTS 
RA §5> SREGISTERS R2=-R5 
GSYSSRV erase ef i CREATE AND MAP SECTIO 
RA ge" R6,R7,RB.RO_.RIO.R11> sREGISTERS R2-R11 
GSYSSRV cL gets :CLEAR HARD BARITY ER 
2.3. Re RS> SREGISTERS R2-R 
GSYSSRV CMEXEC.E,2,- [CHANGE MO ODE TO EXECUTIVE 
Rone TREGISTER R 
GSYSSRV CMKRNL,K,2,- SCHANGE MO DE TO KERNEL 
<R4> TREGISTER R 
GSYSSRV CLREF :CLEAR EVENT 
BER a, RS> sREGISTERS nach. SEE WAITFR COMMENTS. 
GSYSSRV C Nie :CONTRACT REGI 
nt RS.R6.R7> TREGISTERS R2- oy 
GSYSSRV & Regn [GET PAGE TABLE INFORMATION 
oho. R Re RS.R6.R7.RB.RO-RIO> :REGISTERS R2-R10 
GSYSSRV cR LOG.ALL,4.= :CREATE LOGICAL NAME 
R3_RG RS. R6,R7,RB> ;REGISTERS R2-RB 
GSYSSRV cr MBX; K =CR TE MAILBOX 
R3_RL_RS,R6-R7.RB-RO_RIO,R11> :REGISTERS R2-R11 


GSYSSRV cr PRE-K, 12,- SCREATE PROCESS 
R nd RS.R6,.R7_.RB.RI_RI Ri1> “REGISTERS R2-R11 


GSYSSRV cr fva SCRE E VIRTUAL | ADDRESS 
NS Re RS.R6.R7, JRB> REC STERS RRB 
GSYSSRV DACEF Bg ky sDISASSOCIATE EVENT FLAG CLUSTER 
2k tes. R6,R7,RB,RI_.R10,R11> ;REGISTERS R2-R11 
GSYSSRV D K.2,> :DEALLOCATE DEVICE 
LP a1 RS .RB> SREGISTERS R2-R5,R8 
GSYSSRV DAS te K,1,- :DEASSIGN 1/0 ARNEL 
RS. Re RS.R6.R7.R8> REGISTERS R2-RB 
GSYSSRV D DctASt K,3,- [DECLARE AST SYSTER SERVICE 
R3. ay R5> TREGISTERS R2- 
GSYSSRV o¢ EXH.K {,- [DECLARE EXIT HANDLER 
Rb> TREGISTERS R2-R4 
GSYSSRV ct 3,- [DELETE LOGICAL NAME 
GSYSSRV cm 1F5:86,7.RB> RE ee SOR” 
Oho Rs R3, Kt RS> SREGISTERS R2-R5 
GSYSSRV DE Re *K [DELETE PROCESS 
R3-RL_RS,R6,R7> :REGISTERS R2-RS 
GSYSSRV Det VA.K,3,- :DELETE VI IRTUAL ADDRESS 
mie” RS.R6,R7>,- {REGISTERS R Rok 
GSYSSRV 0G cs sc -K DELETE GLOBAL SECTION 
R Rd <TH R6.R7.RB.R9_R10> :REGISTERS R2-R10 
GSYSSRV OL ONP :DEALLOCATE BIAGNOSTIC PAGE 
RS. nd RS.R6.R7> :REGISTERS Re R2-R 
GSYSSRV OL EF a: :DELETE COMMON EVENT CLUSTER 
R nt As. R6,R7,.RB,RI,R10,R11> :REGISTERS R 
GSYSSRV OPD PDSEC ‘UPDATE sett TION FILE 
| 


GSYSSRV 
GSYSSRV 
GSYSSRV 
GSYSSRV 
GSYSSRV 


GSYSSRV NUMTIM. 


GSYSSRV 
GSYSSRV 
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CMODSSDSP.MAR; 1 
<R2 RS, R4,RS,R6,R7,RB> ;R2-RB 
GSYSSRV SN SNDERR K,1,- :SEND MSG TO ERROR LOGGER 
R3, Rd, &S> TREGISTERS R2-R5 
GSYSSRV ex xIf,k-1,- i TMAGE EXIT 
ext> 0 SREGISTER R4, ALWAYS ALLOWED! 
GSYSSRV EXPREG, TEXPAND PROGRAM REGION 
“hae RS .R6.R7.RB> GREGISTERS R2=RB 
GSYSSRV fag: nil 0.5 i FORMAT ASCII QUTP 
R2.R3,R4_RS,RO,R7,RB,RI-RIO,R11> ; REGISTERS R2-R11 
GSYSSRV FAQL ALL FORMAT ASEII OUTPUT with VALUE LIST 
<R2,R3,R4_R5,R6.R7-RB-RO_RIO,R11> cREGISTERS R2-R11 
GSYSSRV FO FORCEX.K K,3,- FORCE exit 
<R2,R3_RG_RS> SREGISTERS R2-R5 
GSYSSRV ImGSTA A. ALL, 6,- [IMAGE STARTUP 
:REGISTERS NONE 
GSYSSRV SHBG .E i SEND TO JOB CONTROLLER 
rn 8, Rb,R7,RB,RO.R1IO,R11> ;REGISTERS R2-R11 
GSYSSRV Ger trta M.E,1,- :GET TIME 
[NO REGISTERS 
GCOMPSRVB ” UPDSECW, [UPDATE SECTION AND WAIT 
<UPDSEC_MASK ! GETJPI _SYNCH_MASK> 
IF NDF ,MPSQITCH 
c1F NDF -RMSSWITCH 
“IF NOF .LIBSWITCH 
jmp a#EXESUPDSECW 
-ENDC = s LIBSWITCH 
“ENDC «=: RMSSWITCH 
“ENDC :MPSWITCH 
GCOMPSRVE i 
GSYSSRV HIBER ; HIBERNATE 
ns, ae, gh? GREGISTERS R2-R5 
GSYSSRV ImgAct TIMAGE ACTIVATION 
R3, ad be R6,R7,RB,RI.RIO,R11> REGISTERS R2-R11 
GSYSSRV UCRPAG:K [LOCK PAGE IN MEMORY 
R2,R3_RL_RS.RE.R7RBD REGISTERS R2-R 
GSYSSRV CKOSeT K $- PAGES IN WORKING SET 
<R2,R3, nt R5S.R6.R7RB> REGISTERS R2-RB 
GSYSSRV (Stk [MAP : L SECTION 
<R2,R RA RS.R6.R7.RB.RO. wRIO,R11> REGISTERS R2-R11 
GSYSSRV PUR GE WORKING SET 


<R2 nar R4_RS,RO,R7,RB> :R a 
ONVERT th, 19 NUMERIC 
<R2,R3_RLRS.R6,R7> REGISTER SR 


SNDOPR.E,2,- 7S 
aig: RS Exe RS,R6,R7_RB_RI, R 0,R11> ts -REGISTERS R2-R11 
RS. R4_RS.RO.R7_RB, Rd: Ri RYO OR £4S°.8 REGISTERS R2-R11 
READEE K,2,- READ. EVEN ENT F 
ae ind As» EREGISTERS RoR $$ 
a Ro RS> SREGISTERS R2-R5 
ny *K RUNDOWN 
2 R3_RL.AS.RO.R7> 3REGISTERS R2-R7 
SiO Ene: E i SEND NSG 10 SYMBIONT MANAGER 
“Re RS.R6.R7.RB.RI-RIO,RI REGISTERS R2-R11 
SCH cnbuK R 4,- SCHEDULE WAKEUP’ 


“ 
Sad 
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<R2,R3,R4,R5,R6,R7,RB,RO> s REGISTERS R2-R9 
GSYSSRV SETAS SI sSET AST ENABL SERVICE 
crow ate | Mar ai 
2,R%, ha’ RS> SREGISTERS ROARS, SEE WAITFR COMMENTS. 
GSYSSRV S$ ete xy. i,- SET EXCEPTION yECTOR 
Ro RS> TREGISTERS R2-R 
GSYSSRV set fen: k K,1,- :SET PROCESS NAME 
R3-RL_RS,ROR7LRBROD SREGISTERS ROR 
GSYSSRV Seténa‘e - sSET POWER RECOVERY AST 
<R2 RS RG RS> SREGISTERS Ro-R 
GSYSSRV ser ET ing. iSeT TIER 
3.Rd RS.R6,R7,R8,RO_RIO.R11> :REGISTERS R2-R11 
GSYSSRV SEfPRy: :SET PROCESS PRIORITY 
<R2,R’ ay RS> SREGISTERS R2-R 
GSYSSRV SETPRT.K :SET PAGE PROT CTION 
<R2,R3, Re as, R6,R7,RB,RI> :REGISTERS R2-R 
GSYSSRV $ SETAWA‘R, _ i SET RESOURCE WAIT MODE 
GSYSSRV SETSFM,K,1,- :SET SYSTEM SERVICE FAILURE MODE 
<R4>, EXC MASK TREGISTER R4, AND EXECPTION MASK 
GSYSSRV SETSUM,K71,- 7SET PROCESS SWAP MODE 
<R4> sREGISTER R4 
GSYSSRV SUSPND,K,2,- : SUSPEND aROces 
<R2,R “Rh RS> :REGISTER SR 
GSYSSRV TRNLOG. AL g.5 ANSLATE LOGICAL NAME 
<R2,R Rn . R6,R7,RB> CRECISTERS fi 
GSYSSRV ULKPA AG -K [UNLOCK PAGE FROM MEMORY 
eRe R Rd RS.R6.R7,R8> REGISTERS R2-R 
GSYSSRV ws LWSET [UNLOCK PAGES FROM WORKING SET 
R2 Ey aT RS.R6,R7,RB> REGISTERS R2-R 
GSYSSRV UNGIND. ALL e° TUNWIND PROCEDURE CALL STACK 
<Re, RS. RGR TREGISTERS R2-R 
GSYSSRV Ww walter K,1,- ‘WAIT FOR EVENT FLAG 
<R2,R3, Ri, RS ,R6> SREGISTERS Ro-R6. IF RB IS EVER USED 
>THE RMS SYCHRONIZATION CODE MUST BE 
[MODIFIED TO SAVE IT ALSO. 
GSYSSRV WAKE,K,2,- WAKE PROCESS 
<R2,R3,R4,R5> TREGISTERS R2-R5S 
GSYSSRV WF *K,2,> [WAIT FOR LOGICAL AND OF EVENT FLAGS 
R3,R4,R5,R6> TREGISTERS R2-R6 
GSYSSRV na K,2.7 sWAIT FOR LOGICAL OR OF EVENT FLAGS 
<R2,RS,R4_R »R6> SREGISTERS R2-R5 
GSYSSRV BR est: ALL :BROADCAST 19 TERMINALS 
He RG_RS_R6> TREGISTERS R2- 
GSYSSRV D bck Cri *K,3,- :DECLARE CHANGE MODE HANDLER 
GSYSSRV SETPER. iSET PAGE FAULT MONITORING 
3/Ri, “a5 +R6,R7,RB.RORIO.R11> ZREGISTERS R2-R11 
GSYSSRV G tate “ALL iGET MESSAGE 
oho, R3_RE_RS_RO,R7.RB.RO-RIO.R “REGISTERS R2-R11 
GSYSSRV DERG. *K,1,- DECLARE “gRROR 06 MAILBOX 
R2,R Rd k5> SREGISTERS R2-R 
GSYSSRV CANEX : CANCEL EXIT HANDLER 
<R2,R RS ae RS> SREGISTERS R2-R5 
GSYSSRV GETCHN.K,5,- GET CHANNEL INFORMATION 
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<R2,R3,R4,R5,R6,R7_RB,RI R10,R11 -REGISTERS R2-R11 
GSYSSRV GEIEY.K 13 Device INF ORNATION 
R2,R3_RG_RS,RG-R7-RB-RO-RIO.RI1> sREGISTERS RO“R11 
GSYSSRV GET IP} K ?,- iGET 108 PROCESS [NEORMATION 
R2R3_RLRS /R6,R7,RB.RI,RIO,R11> REGISTERS R2=- 
GSYSSRV PUTASG “ALL iPu FORMAT T D ERROR MESSAGE 
<R2,R3.R4,R5, “6, R7,RB,RO.R1IO.R11> REGISTERS R2-R1 
GSYSSRV cnaniS: ALL [OUTPUT EXCEPTION SUMMARY MESSAGE 
R R RS‘R6R7.RB.RO-RIO.RIT> REGISTERS R2-R11 
GSYSSRV S$ Acta i SEND nSG to ACOUNTING MANAGER 
R Rd RS.R6,R7.RB.RO-RIO.RII> : REGISTERS R2-R 
GSYSSRV SE ET Ing k istt SySTEA TIME 
R Ri R5.R6.R7,R8,P9_-RIO.R11> SREGISTERS R2-R11 
GSYSSRV $ etéR RY -K 7SET PRIVILEGES 
cig nS RL.RS.RG.R7.RB> :REGISTERS R2-RB 


SPECIAL VECTORS FOR AST DELIVERY AND CLEARING 
SYSSCLRAST CLEARS THE CURRENTLY ACTIVE AST STATUS 
SYSSGL_ASTRET CONTAINS THE tie OF THE Ea tly salt che FROM 


THE CACL INSTRUCTION USED TO DISPATCH AN HIS VALUE CAN 
BE USED WHEN SEARCHING UP THE STACK FOR THE AST CALL FRAME. 


- ALIGN 


CLRAST=0 


c 
~ ALIGN 
SYSSGL_ASTRET: : 


NDF ,MPSWITCH 
NDF ,RMSSWITCH 
ITCH 


DF 
pe CiBsul 
jLiBswlfcn 
$5$000 cua 

auap 

DF ,LIBSWITCH 
2 

jLIBSWITCH 
M<> 

@CLRAST 
sLIBSWITCH 
DF ,LIBSWITCH 


CLEAR ACTIVE AST 
SAVE NO REGISTERS 


;D0 SPECIAL CHMK 
;AND RETURN 


sADDRESS OF CORE COMMON DESCRIPTOR 


+7 ADDRESS FROM AST DISPATCHING 
S ADDRESS OF "CORE COMMON’’ DESCRIPTOR 


; ENTRY VECTOR FOR CONDITION HANDLER SEARCH. LIBSSIGNAL USES THIS VECTOR 


, 
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CASEW RO,S*#RCASMIN,S*#RCASMAX 
RCASE: 
.IFTF «=: RMSSWITCH 
: NOF ,LIBSWITCH 
RCASMIN=RCASCTR 
TIFF © s RMSSWITCH 
PAGE 
-¢¢ 


: RMS SERVICES 


RMS SYNCHRONIZATION ROUTINE 


; TO SHARE EXCEPTION'S CODE TO SEARCH FOR AND GALL CONDITION HANDLERS. 
; THIS ENTRY IS NOT CALLED; RATHER, IT IS JUMPED TO. NO RETURN IS MADE. | 
-ALIGN QUAD 
“TF DF LIBSWITCH | 58: 
SVSSSRCHAMDLER: i | 
InP ade XESsACHaNoLER ; JUMP TO COMMON CODE 
-BLKQ ;RESERVE SPACE 
-ENDC ;LIBSWITCH e: 
~ENDC ;RMSSWITCH 
; NOTE THAT THE i IN PSECT $$$000 AT THIS POINT CANNOT EXCEED 320 (HEX) : 
; WITHOUT MODIFYING THE y* SYNCHRONIZATION CODE WHICH PRECEDES THE RMS ; UP 
; VECTORS WHICH CANNOT BE MOVED. ; 
PAGE EXES 
Set up the base med the RMS service codes. We leave a hole so that 
; other exec mode system services can be defined later in this module. 
3; The hole is detined by the offset between ECASCTR and RCASCTR; it 
is checked with an ASSUME at the end of all service definitions. 
IF NDF ,LIBSWITCH 
RCASCTR=ECASCTR+10 3 
-ENDC : ca 
-1F DF ,RMSSWITCH 3 IN 
; CASE DISPATCHER FOR RMS SERVICES 3 
: RO HAS SERVICE DISPATCH CODE. ; 
3 IF IN RANGE DISPATCHES TO APPROPRIATE RMS SERVICE, ; 
: ELSE SIMPLY DOES AN RSB 
, -PSECT SSSRMSVEC,.BYTE,.NOWRT ;MUST BE FIRST PSECT IN RMS GETJ 
RMSSDISPATCH: ;MUST BE FIRST CODE IN FIRST RMS PSECT 
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Se Se Ge Be Oe Ge Fe Se 


THE FOLLOWING pout MF ol® USED BY THE VARIOUS RMS SERVICES IN ORDER 
To AWA 4/9 THE ROUTINE IS IN THE VECTOR AREA IN ORDER 
TO WA THE CALLER a “MODE, THUS ALLOWING AST ACTIVITY FOR EITHER 
USER OR SUPERVISOR MODE, OR BOTH. 


THE FAB/RAB IS CHECKED FOR A LEGA BLOCK ID, 1.E., A10R 3, A 
AN ERROR RETURNED IF INVALID. RUCTURE 1§ NOT REPROBED. 


NOTE THAT EACH RMS SERVICE VECTOR TERMINATES WITH A BRANCH TO THIS 
ROUTINE. 


THIS ROUTINE ASSUMES THAT THE FOLLOWING REGISTERS HAVE BEER SET BY THE 
EXITING RMS EXEC-LEVEL CODE WHENEVER A STALL IS REQUIRED 


R EFN TO WAIT ON 

R RAB/FAB ADDRESS TO WAIT ON 

RG (RMSWAIT BR ENTRY POINT poy auet’ SERVICE) FLAG FOR WAIT TYPE 
(0 = SAME RAB, 1 = DIFFERENT 


IF NOF ,LIBSWITCH 
msect $8 Bsuiten 
PSECT isso 


LKB itygsultcy ~VECBASE> 
F Bis ITCH 


$ ia Ay PROCESS 

. A NEW OPERATION 
THE T CONTROL BLOCK 

HA “ CONDITION 

ONS AT ONCE. 


ee CONTROL .% THAT 

S$ FAB/RAB. WHEN RMS IS _IN 

AG AND REJECTS THE NEW oe 
OR 


PREVIOUS OPERATION. THI 
TH oT STS/STV FIELD F 


BISB #1 ,RABSB_BLN(RB) ;LOW BIT OF BLN FIELD IS THE FLAG 


ARGUMENTS ARE PUSHED ON THE STACK AND THE AP ser UP AS IF A ‘CA 
TRUCTION WERE BEING EXECUTED. THE CHANGE pos KERNEL SERVICE 
CUTED DIRECTLY. THIS SAVES THE OVERHEAD OF A CALLS. INSTRUCTIO 
MUST NOT BE DESTROYED BY ANY OF THE SERVICES USED HERE. 


PUSHL R35 s EVENT 4 -y TO WAIT F 
MOVAB =4(SP),AP ;SET UP AP AS IF USING" CALLS INSTR. 
# [NUMBER OF ARGUMENTS 
I*#WAITFR ;D0 "NAKED’ WAITFR TO SAVE CALLS TIME 


POINTED TO or ae is STILL VALID BY 
IS EITH RAB (BID=1) OR 


LL 
| 
N. 


one 


HAT IT RA 
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; WILL GET AN ACCESS VIOLATION. THe BID FOR A FAB/RAB IS AT BYTE 0, 
; THE STS FOR A FAB/RAB IS AT BYTE 8. 
{0s BLBC (RB) ,30$ ;NOT SET, THEN NOT A FAB OR RAB 
BITB get tT% 1100, (na [18 IT Al OR 3? 
BNEQ 0 :NEQ NO $O BLOW THE WHISTLE 
MOVL (RB) ,RO :GET RMS STATUS COD 
BEQL 0$ SAND WAIT AGAIN IF NOT SET 
BICB «= #1, RABSB_BLN(R8) [CLEAR WAITING FLA 
BLBC ~=—_-«aRO, 308 ‘BRANCH IF FAILURE CODE 
RET SRETURN TO CALLER 
; CLEAR THE RMS EVENT FLAG, CHECK STATUS AGAIN AND WAIT 1 MORE TIME IF 
; OPERATION STILL NOT DONE. THE APPROPRIATE ARGUMENTS FOR THE CLREF 
; AND SETEF CIF EXECUTED) REMAIN ON THE STACK FROM THE WAITFR ABOVE. 
: THE AP MUST BE PRESERVED. 
50s: CHMK —s« [*@CLREF 7D0 A "NAKED" CLREF, THE ARGUMENTS 
SARE ON STACK AND AP STILL SET UP 
[FROM THE WAITFR ABOVE 
TSTL  8(RB) SAND RE=CHECK STATUS 
BEQL § USERWAIT :BRANCH TO WAIT FOR FLAG AGAIN.. 
tee. IF STATUS STILL ZER 
CHMK “#SETEF 31/0 COMPLETE - LEAVE EFN SET 
BRB 0s SAND RESTORE RO STATUS CODE 
; BRANCH TO CHECK STATUS CODE FOR ERROR OR SEVERE ERROR 
; A SUCCESS STATUS IN RO (FROM THE SWAITFR) INDICATES AN INVALID FAB/RAB. 


Sos: BRW RMS_ERR_BR 


; ENTRY HERE FROM SWAIT SERVICE. THIS SERVES AS AN EXTENDED BRANCH 
; TO THE S$WAIT SYNCHRONIZATION CODE IN THE YSCMODE PSECT. 
RMSWAIT_BR: 
JSB @ARMS_WAIT_SYNC ;D0 SWAIT SYNCHRONIZATION 


ENTRY HERE FROM EACH VECTOR 
CHECK FOR POSSIBLE STALL 


RMSCHK_STALL: 

CMPW =s-RO, ARMSS_STALLO*XFFFF ©; 1S THE STATUS CODE 1/0 STALL? 
BEQL = RMSWAIT_TO_DONE :BRANCH IF YES 

RET :BACK TO CALLER 


»ALIGN QUAD 
-IFF iL fgsesres 
-BLKB x4 THIS TAKES THE SPACE OF THE CODE 


sWHEN GENERATING THE GLOBAL SYMBOLS 
-ENDC = ;LIBSWITCH 
IFF sRMSSWITCH 
- PAGE 


DEFINE RMS SERVICES 


CMODSSDSP.MAR; 1 


IF 
RMSSYNC= RMSCHK = 


NDF ,LIBSWITCH 
TALL 
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“ENDE :RMSSWITCH 
; HIGH USE RECORD OPERATIONS 
RMSSRV DELETE ;DELETE A RECORD 
.NLIST CND 
RMSSRV FIND sFIND RECORD 
RMSSRV FREE :RELEASE LOCK ON ALL RECORDS 
RMSSRV GET iGET A RECORD 
RMSSRV PUT :PUT A RECORD 
RMSSRV READ EAD A BLOCK 
RMSSRV RELEASE SRELEASE LOCK ON NAMED RECORD 
RMSSRV UPDATE SREWRITE EXISTING RECORD 
IF NDF ,RMSSWITCH 
c IF NOF -LIBSWITCH 
RMSSYNC=RMSWAIT_ BR sREDEFINE FOR SWAIT ONLY 
“ENDC  ;RMSSWITCH 
RMSSRV WAIT ZSTALL FOR RECORD OPERATION COMPLETE 
IF NDF ,RMSSWITCH 
wIF NDF -LIBSWITCH 
RASSYNC=RMSCHK, STALL ;RESTORE STANDARD SYNC ADDR 
“ENDC  ;RMSSWITCH 
RMSSRV WRITE ;WRITE BLOCK 
$ LOWER USAGE OPERATIONS 
RMSSRV CLOSE :CLOSE FILE 
RMSSRV CONNECT [CONNECT RAB 
RMSSRV CREATE [CREATE FILE 
RMSSRV DISCONNECT ‘DISCONNECT RAB 
RMSSRV DISPLAY [DISPLAY FILE INFORMATION 
RMSSRV ERASE TERASE (DELETE) FIL 
RMSSRV EXTEND TEXTEND FILE ALLOCATION 
RMSSRV FLUSH [FINISH 1/0 ACTIVITY FOR STREAM 
RMSSRV MODIFY ;MODIFY FILE ATTRIBUTES 
RMSSRV NXTVOL [NEXT VOLUME 
RMSSRV OPEN [OPEN FILE 
RMSSRV REWIND SREWIND FILE 
RMSSRV SPACE [POSITION FOR TRANSFER 
RMSSRV TRUNCATE S TRUNCATE FILE 
RMSSRV ENTER TENTER FILENAME INTO DIRECTORY 
RMSSRV PARSE [PARSE FILENAME SPECIFIC ATION 
RMSSRV REMOVE REMOVE FILENAME FROM DIRECTORY 
$$ ENAME .NARG=4 : RENAME A FILE 
RMSSRV SEARCH ARCH A FILE DIRECTORY 
RMSSRV SETDDIR,NARG=3, wbsvncet 
Set DEFAULT »PARECTORY STRING 
RMSSRV SETDFPROT,REGS=<R2,R3>,NARG=2,NOSYNC=1 
- SET 2 FAULT 2 {N08 PROTECTION MASK 
RMSSRV SSVEXC,REGS=<>, nOSYN 


S GENERATE SYS SERV EXCEPTION 


wef] 
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RMSSRV RMSRUNDWN,NARG=2,NOSYNC=1 
‘PERFORM RUNDOWN ON RMS FILES 
RMSSRV RMSRUHNDLR, NARG=5 NOS NC=1 


MS 
RMSSRV FILESCAN,NARG=3, Nosy NC= 
Perform syntax check for file specs 


; ADD NEW RMS SERVICES IN FRONT OF THIS CODE! 
: Now we add special gerayecter code. Because of the CASE instruction 


poarevery Unit Handler 


; used at the front of RMS, this code (and any future additional code) 
; must be the Last slenent of the RMS area. 


GCOMPSRVB Helper branch to error processing 
IF NDF ,MPSWITCH 

LIF NDF ,RMSSWITCH 

IF NDF ;LIBSWITCH 

RMS_ERR_BR: 

JMP @ARMS_ERR 

-ENDC ;LIBSQITCH 

-ENDC ;RMSSWITCH 

-ENDC ;MPSWITCH 

GCOMPSRVE 


IF NDF ,RMSSWITCH 


; NOTE: RMSVECEND MARKS hy END OF a CURRENTLY DEFINED RMS VECTORS. 

; SSVECREG2 MARKS THE START OF THE SECOND REGION OF SYSTEM 

; SERVICE VECTORS. THERE IS EMPTY SPACE BETWEEN THESE aeeioue 

3 TUR S VECTORS. IF + THIS SPACE CAN ALS 

: BE USED FOR SYSTEM SERVICE VECTORS BY BACKING UP SSVECREG 

; ( RMS VECTORS) AND ADDING NEW SYSTEM SERVICE van tens 
; BEFORE THE meee DEFINED ONES. IN OTHER WORDS, THESE T 

: VECTOR REGIONS MAY GROW a vi EACH OTHER. IF THEY COLLIDE, 

; AN ASSEMBLY ERROR IS GENERATED. 


IF DF WITCH 
“PSECT $860 


TIFF 
"psect $$$000,QUAD ; CMODSSDSP 
-ENDC = ; LIBSWITCH 


RMSVECEND: 
.=VECBAS +*X5C0 
SSVECREG2: START OF SYSTEM SERVICE VECTOR REGION 2 
IF GT, RMSVECEND-SSVECREG2 
-ERROR ; RMS VECTORS EXCEEDED PREALLOCATED SPACE ; 


-ENDC = ;RMSSWITCH 
-ENDC ;MPSWITCH 


REGION 2 OF SYS. SERV. VECTOR DEFINITIONS 


< 
mn 
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Note: Service codes for exec mode services in this region are 
reserved by the offset defined above between RCASCTR and ECASCTR. 
it pre ASS = at the end of this section breaks, the offset must 
e increased. 


GSYSSRV ENQ.K41 :FNO UEUE 
RS RL, RS,R6,R7,RB, RO, R10,R11> ; REGISTERS R2-R11 


GSYSSRV DEG. U UEVE 

2 RS, R4.RS.R6.R7.RB-RO_RI REGISTERS R2-R11 
GCONPSRVE, Fidy ENOUEUE AND WAIT 

ORAS i WALTER -MASK ! CLREF_MASK ! SETEF_MASK> 
IF Nore Oapeg 
SIF NDF RUS SUITCH 
“IF NDF *LIBSWITCH 


CHMK N : EXECUTE ENQ SYSTEM SERVICE 
CMW RO, #SS$_SYNCH : IF COMPLETED SYNCHRONOUSLY 
S$: RET ; THEN RETURN WITHOUT ANY WAITING 
10$:  BLBC  R0,5$ > DON'T WAIT IF ERROR 
PUSHL ENQ$ LKSB(AP) : OTHERWISE GET IOSB ADDRESS IF SPECIFIED 
BRB Q10_ENQ SYNCH 3; AND USE COMMON SYNCH CODE 
-ENDC = s LIBSWIT 
.ENDC =: RMSSWITCH 
SENDC  :MPSWITCH 
GCOMPSRV ; RESERVE 3 QUADWORDS FOR VECTOR 
GSYSSRV SETSSF,K,1,- : SET SYSTEM SERVICE FILTER MASK 
<R4> : REGISTER R4 
GSYSSRV SETSTK,K,3,- : SET STACK LIMITS 
<R2,R3, Ra” ; REGISTERS R2.R3 
GSYSSRV SENSU -K,? ; GET SYSTEM INFOR 
rd, “As. R6,R7,RB,RO,RIO-R11> ; REGISTERS R2-R11 
GSYSSRV InehtK AL : IMAGE ADDRESS RELOCATION FIXUP 
CRORE RE CRSS $ : REGISTERS R2-R5 
GCOMPSRVB IMGF IX 2.7 ; tereneraee TEMP seeeteeere 
<0> - 


GCOMPSRVE j weeeeanene TEMP teeererere 
GSYSSRV GETDVE. GET iis VICE ano VOLUME INFORMATION 

% B55, R6,R7,R8, Rd, R10,R11> ; REGISTERS R2-R 
GCOMPSRVB “setDy GET D viter INFORMATION AND WAIT 
Wd nsx ! GETJPI _sYNCH E MASKS 


F LMP 
IF NDF -RMSSWITCH 
4 Lieeye Ten 
I*A#GETDVI 


1 
W.- GET JOB/PROCESS INFORMATION AND WAIT 
JPI_MASK ! GETJPI _syNCH _MASK> 
SOITCH 
RMSSWITCH 
BSWITCH 
ETJPI 
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GETJP1_ COMMON: 
JMP 


4 a#GETJP1_SYNCH ; 
-ENDC = g LIBSWITCH : 
-ENDC } = S RMSSWITCH : 
“ENDC = MPSWITCH ; 
COMPSRVE 2 F 
GCOMPSRVB GETSYIW,- GET SYSTEM INFORMATION AND WAIT ; 
<GETSYI MASK ! GETUPI _syivcH _MASK> ; 
IF NOF ,MPSQITCH : 
cI1F NOF -RMSSWITCH ; 
cIF NDF -LIBSWITCH : 
CHMK =: L“#GETSYI ; 
BRB GETJP1_COMMON : 
.ENDC = : LIBSWITCH : 
-ENDC =: RMSSWITCH ; 
“ENDC ©: MPSWITCH ; 
GCOMPSRVE 1 ; 
GCOMPSRVB SNDJBCW,- ; SEND TO JOB CONTROLLER AND WAIT : 
<SNDJBC_MASK ! GETJPI_SYNCH_MASK> ; 
IF NDF ,MPSQITCH : 
cI1F NDF .RMSSWITCH : 
c IF NDF -LIBSWITCH ; 
CHME 1 4#SNDJBC ; SEND TO JOB CONTROLLER ; 
BRB GETJP1_COMMON ; 
~-ENDC ;LIBSWYITCH 3 
SENDC =: RMSSWITCH ; 
“ENDC =: MPSWITCH : 
GCOMPSRVE 1 F 
GCOMPSRVB SYNCH. = ; SYNCHRONIZE EFN AND 10SB ; 
<WAITFR_MASK ! CLREF_MASK ! SETEF_MASK> : 
IF NDF ,MPSQITCH F 
ot NDF .RMSSWITCH : 
“IF NDF ,LIBSWITCH : 
PUSHL SYNCH$_IOSB(AP) ; GET ADDRESS OF 10SB IF SPECIFIED ; 
; CONDITION CODES SET FROM PUSH OF IOSB ADR ONTO STACK : 
; THE EFN STATE AND IOSB STATUS MAY HAVE ONLY THE FOLLOWING COMBINATIONS : 
; EFN CLEAR, (10SB) = 0 ; 
: EFN SET, (I0SB) NON Z ; 
3 EFN SET, (IOSB) CLEAR = the EFN was set by another I/0 operation : 
; IF THE EFN COULD BE CLEAR AND (IOSB) WAS NON-ZERO, THIS SERVICE WOULD ; 
; EXIT WITH THE EVENT FLAG CLEAR WHICH IS NOT CORRECT. : 
Q10_ENQ_SYNCH: F 
BEQL $ : BRANCH IF NO IOSB SPECIFIED 
TSTW = @( SP) : IS COMPLETION STATUS SET? 
BNEQ 408 : BRANCH IF SET 
10$:  CHMK  $I*#WAITFR : MUST WAIT FOR EFN TO BE SET 
TSTW a<sP) : COMPLETION STATUS SET YET? 
BEQL 0$ : BRANCH IF NOT 
O$: RET : YES, RETURN STATUS 
O$:  BLBC  RO,20$ : IF ERROR RETURN, STATUS 
CHMK I *#CLREF > NO CLEAR EVENT FLAG 
TSTw at SP) : AND IF STILL NOT DONE 


40$: 


10$: 
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BEQL 10$ 
CHMK 1“#SETEF 
Bey S*#SS$_NORMAL ,RO 


CHK 1“#WAITER 
.ENDC = ; LIBSWITCH 
SENDC =: RMSSWITCH 
“ENDC =: MPSWITCH 
OMPSRVE 
GSYSSRV V ERAP AT, K,3,° 
GSYSSRV CRELNT 
R3, mee RS.R6.R7.RB.R9. 
GSYSSRV cR 
GSYSSRV of L 


GSYSSRV TRNLNM.K 
<R2,R3, Rd RS.R6,R7.R8.R9. 


GSYSSRV GeTCK 
ns n, RS, R6,R7,RB,RO 

GCOMPSRVB "ottLe 
KI MsK ! WAITFR_MA 


“IF NDF -LIBSWITCH 
CHMK =—s I #GETLKI 


BLBC 
PUSHL GETLKI$_1I0SB(AP) 


Q10_ENQ"SYNCH 


-ENDC = ;LIBSWITCH 
eENDC = ;RMSSWITCH 


“ENDC :MPSWITCH 
GCOMPSRVE 2 
GSYSSRV ASCTO D.E.3,- 

wR4 RS.R6, R7.R8.R9. 


GSYSSRV elt ROB 
37Re8 2 Re R7,R8,R9. 
GSYSSRV 1 DfaA sere 


“ie: RS, R6.R7.RB_R9. 
GSYSSRV ancthe 


K-11. 
a Uke RS (Ro. R7,R8,R9, 
GSYSSRV cna 16 6, ALL, 


GSYSSRV 7s os 5. 


GSYSSRV CHK eras Rd 
RA 4 8S. R6,R7,RB, RY, 
GCOMPSRVB Reet 


< BRKTHRU URASK ' GETJPI_S 


CNM; K 
ROCRS RG RS.RO.R7.RB_R9. 
NM.K,3,- : 
CRO R3,R4_R5,R6,R7_RB, R9, 


Fi ; 
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; WAIT SOME MORE 
; RWISE EXIT WITH IT SET 
3 NORMAL SUCCESS 


; FORCE 
; AND RETURN 


; NO IOSB GIVEN, JUST WAIT FOR THE EVENT FLAG TO BE SET 
S0s: 


; WAIT FOR SPECIFIED EVENT FLAG 
; AND RETURN 


RESERVE 6 QUADWORDS FOR VECTOR 
; 1th the A SECURITY ERASE PATTERN 


; CREATE LOGICAL NAME TABLE 
R10,R11> TERS R2=-R11 
CREAT A 
R10,R11> 
D 
RI 
R10 
i! 
gk 


- Or 
PJ 


Se 
—D-D Wawa 


a 
—_—.- —-. 
Senza 


$ R2=-R11 
” AND WAIT 


; DON'T WAIT IF ERROR 

; OTHERWISE GET IOSB ADDRESS IF SPECIFIED 
; AND USE age SYNCH CODE 

; RETURN ON ERROR 


; RESERVE 2 QUADWORDS FOR VECTOR 


ASCII TO IDENTIFIER CONVERSION 
R10,R11> ;REGISTERS R2-R 
ta RDB CONTEXT sTREAR 
»RIO,R11>_ REGISTERS R2-R11 

IDEN NTIFIER TO ASCII CONVERSION 
R10,R11> REGISTERS R2-R 
miOch THROUGH WRITES 
R10,R11> REGISTERS R2-R11 
ZGRANT IDEN THFIER TO PROCESS 
SRECISTERS R2-R 
:REVOKE E IDENTIFIER FROM PROCESS 

REGIST ERS R2-R 

i GENER AL PROTECTION CHECK ROUTINE 
R10,R11> ;REGISTERS Ro-R11 

AK T THOUGH WRITE AND WALT 

NCH _MASK> 


& 
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IF NDF ,MPSWITCH 
c IF NDF SRMSSWITCH 
“IF NDF -LIBSWITCH 
CHMK —s L*#BRKTHRU 
BRW GETJP1_COMMON 
-ENDC =; LIBSWITCH 
€  :RMSSWITCH 
“ENDC  :MPSWITCH 
GCOMPSRVE 2 
GSYSSRV GETQUI.E 7,- :GET QUEUE INFO 
<R2,R3,R4,R5,R6,R7,RB,RI_-R1O,R11> REGISTERS R2-R11 
GCOMPSRVB GETQUIW.- :GET QUEUE INFORMATION AND WAIT 
<GETQUI_ MASK ! GETJPI_SYNCH_MASK> 
IF NDF ,MPSGITCH 
cIF NDF -RMSSWITCH 
NDF -LIBSWITCH 
CHME 14#GETOUI 
BRW GETJPI_COMMON 
.ENDC = ; LIBSWITCH 
SENDC = : RMSSWITCH 
“ENDC  :MPSWITCH 
GCOMPSRVE 2 
CUFSKCASCTR = 16424 
LDBSRV CJF$, ALLUDR, K,  <R4> 
LOBSRV CJF$. ASSJNL, K,  <R4> 
LDBSRV CJF$. CONUIC, K, <R4> 
LOBSRV CJF$. CREJNL K; <R4> 
LOBSRV CJF$. DEALJDR, K,  <R4> 
LOBSRV CJF$. DEASJNL, ALL, <R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> 
LOBSRV, CJF$, DEASJNL_INT, K, | <R4> 
LOBSRV CJF$. DELJNL, K, <R4> 
LOBSRV CJF$. DMTJMD. K. <R4> 
LOBSRV CJF$. DSPJNL. K,; <R4> 
LOBSRV CJF$. GETJNL, K, <R4> 
LOBSRV CJF$. GETRUI, KK; <R4> 
LOBSRV CJF$. MODFLT, K,  <R&> 
DBSRV CJF$, POSJNL, K, <R4> 
LOBSRV CJF$, READJNL, K;  <R4> 
LOBSRV CJF$, RECOVER, K,;  <R4> 
LOBSRV CJF$. MNTJMD, K, <R4> 
LOBSRV CJF$. CRENWV K,  <R4> 
LDBSRV CJF$;, CONJNLF, K, <R4> 
LDBSRV CJF$, DCNJNLF, K, <R4> 
LDBSRV CJF$, FORCEJNL, ALL, <R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
LOBSRV CJF$. WRITECNL, L; <R2,R3.R4.R5.R6~R7.RB.RI_RIO,R11> 
LOBSRV CJF$, WRITEJNLW, ALL. <R2.R3.R4.R5.R6.R7.RE_RO_RIO,RI1> 
LOBSRV CJF$. GETCJI, , | €RGD 
LOBSRV CJF$. DMTJMDU, *  <R4>, &, 5, DMTIMD 
LOBSRV CJF$. MODFLTW, K,  <RG>, 6. 5° MODFLT 
LDBSRV CJF$, POSJNLW, K,  <R4>, 4, 5, POSJNL 
LDOBSRV CJF$, READJNLW, K, <R4>, 4, 5, READJNL 
LDBSRV CJF$. RECOVERW, K. <R4>. 5, 6. RECOVER 
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RUFSKCASCTR = 16400 


LDBSRV RUF$, REENTERRU, K, <R2,R3,R4,R5,R6> 
LOBSRV RUFS. STARTR U, K; <RO.R3,R4.R5.RO> 
LOBSRV RUFS, HASE1 2 K, <R oR oR4,R ~R6> 
LDBSRV RUF$, PHASE? K, <R2,R3,R4.R5,R6> 
LDBSRV RUF$, CANCELRU K, <R2,R3.R4,R5.R6> 
LOBSRV RUFS$, MARKPOINTRU, K, <R2,R3,R4,R5,R6> 
LOBSRV RUF$, RESETRU, K, <R2,R3,R4,R5,R6> 
LOBSRV RUF$, DCLRUH, K, <RO.R RG_RS RG? 
LOBSRV RUF$. CANRUH. K; <RO.R3.R4.R5_RO> 
LOBSRV RUF$, RUSTATUS, K; <R2.R3.R4.R5.RO> 


End Recovery Unit consists of a two-phase commit, so we call each 
phase separately. 


GCOMPSRVB ENDRU, <PHASE1_MASK ! PHASE2_MASK>, RUF$ ; End Recovery Unit 
IF NDF ,MPSWIT 


. »MPSWITCH 
IF NOF ,RMSSWITCH 
IF F .LIBSWITCH 
CHMK “#PHAS 
BLBC RO,10$ 
CHMK 1 *#PHASE2 
10$: RET 
-ENDC ;LIBSWITCH 
-ENDC ;RMSSWITCH 
ENDC ;MPSWITCH 
GCOMPSRVE 2 
GSYSSRV mre SS,K Mag t see in inet ion specific access routine 
RiNk 6,R7,R8,R9.R10,R11> 5 R2-RI1 
; End of system service yocter definitions. New system services are 
; to be added at this point 
ft are Saye tli 2B 
——_ RcaghiN 74 ECASCTR zExec service codes must not collide with AAS 
-ENDC ;MPSWITCH 
. PAGE 
IF NOF ,RMSSWITCH 
If —e -LIBSUITCH ;GENERATE CODE IF NOT LIBRARY FORM 
If autre 
PSECT $3$000°8 
CLIJMP: 
oe aaCTLSAL_CLICALBK ;PIC JUMP FOR CLI CALLBACK 
-BLKB <SGNSC_SYSVECPGS@9>-<.-VECBASE> ;FILL REMAINDER OF RESERVED PAGES 
. PAGE 


-SBTTL ILLEGAL CHME OR CHMK CODE VALUE HANDLING 
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: END OF CHME DISPATCH TABLE 


-PSECT YSCMODE ,QUAD 
JSB 


@CTLSGL. RMSBASE iSEE F ufits DOES THIS SERVICE 
JSB EXESLOAD_EDISP ; CALL LOADABLE CODE DISPATCHERS 


TSTB @*CTLSGB_SSFILTER 


: ALL OKAY 
MOVZWL #SS$_INHCHME,R1 : YES, SET THE EXCEPTION CODE 
BRW INHERCP1 : DEAL WITH BAD CODE 


@4CTLSGL_USRCHME ,R1 ; GET PER-PROCESS US 
10$ NOT PRESENT, TRY SYS 


; ANY peusit BITS ON? 
N A 


@ 
zoom 
©o 
i 
Se eeeee 


Ww 
tad 


MOVL ER CHME VECTOR 
BEQL YSTEM WIDE 


CALL PER-PROCESS “USER'’ SUPPLIED PLUG-ON HANDLER FOR CHME 
WITH UNRECOGNIZED CODES. 


RO - CODE FROM CHME/CHMK (LONGWORD) 
R1 = ADDRESS 4 ROUTIN 
(SP) - hy ADDRESS IN CASE £008 IS NOT LEGAL 
IF AN RSB IS ISSUED, THEN THE sYSTEN-WIDE HANDLER WILL BE 
GIVEN AN OPPORTUNITY BEFORE DECIDING THAT THE CODE IS REALLY ILLEGAL. 
(NORMAL RETURN IS A RET AFTER PERFORMING FUNCTION) 


JSB (R1) ; cat 8 at i USR CHME HANDLER 
; RETURNS ONLY IF ILLEGAL CODE 
10$: MOVL 45 EEL UERCHME <1 ; ELSE TRY SYSTEM WIDE VECTOR 
L 0$ : NOT PRESENT, ILLEGAL 
JSB (R1) ; CALL SYSTEM vibe USER CHME HANDLER 


CALL SYSTEM-WIDE "USER'’ SUPPLIED PLUG-ON HANDLER FOR CHME 
WITH UNRECOGNIZED CODES. 


CODE FROM ah (LONGWORD) 

R1_= ADDRESS OF 

(SP) = RETURN ADDRESS TO GIVE SS$_ILLSER ERROR 

(NORMAL RETURN IS A RET AFTER PERFORMING FUNCTION) 


; RETURNS ONLY IF ILLEGAL CODE 
208: BRW ILLSER : 


ECASMAX=ECASCTR=1 


Se Se Se Ge Ge Ge Oe Oe Oe Oe ee 


Sete Ge Ge Be te ee See 
» 
o 
a 


RMS SWAIT SYNCHRONIZATION CODE. 


; LOOK AT FLAG IN R4 TO ge I R THE SAME OR DIFFERENT 


ENT FLAG AND THEN 


o 

-— 7 
mw" 
<o 


RABS. IF SAME, MEREL IF 
RE-EXECUTE THE SWAIT SERVICE. 


RMS_WAIT_SYNC: 
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BLBS R4,10$ ;BRANCH IF DIFFERENT RABS 
RSB tHANDLE WITH STANDARD STALL 
10$:  TSTL (SP)+ [POP RETURN PC FROM STACK 
CMPW = RO, WRMSS_STALLO*XFFFF «© 1S STALL REQUIRED? 
BEaL ©=._—«20$ :BRANCH IF YES 
RET ‘NO = BACK TO USER 
208: $WAITFR_S R3 :WAIT ON SPECIFIED EVENT FLAG 
JMP SYSSWAIT+ TRE-EXECUTE RMS $WAIT 
> THE FOLLOWING CODE IS AN ERROR PATH FROM THE RMS SYCHRONIZATION CODE 
> THAT PRECEDES THE RMS VECTORS. IT WAS MOVED HERE BECAUSE CODE WAS 
; ADDED THERE AND BECAUSE THE RMS VECTORS CAN'T MOVE, THIS CODE DID. 
: CHECK STATUS CODE FOR ERROR OR SEVERE ERROR, IF Success THEN 
: BAD USER STRUCTURE DETECTED = RETURN ERROR [N RO, STATUS OF RECORD 
: OPERATION WILL BE LOST 
RMS_ERR: 
BICB2 #1,RABSB_BLN(RB) :CLEAR WAITING FLAG 
BLBC RO.98$ STALE SUCCESS => BAD STRUCTURE 
MOVL  § #RMS$_STR,RO [CHANGE STATUS TO BAD STRUCTURE ERROR 
98%:  BITB #6,R0 TERROR OR SEVERE ERROR? 
Bea 46s«99 [BRANCH IF NOT 
: MUST RETURN TO EXEC MODE TO GENERATE POSSIBLE SYSTEM SERVICE FAILURE EXCEPTION 
; MOVL  RO,R2 :STATUS CODE TO R2 
CHE 1*#SSVEXC SGENERATE EXCEPTION IF ENABLED 
PAGE 
: END OF CHMK DISPATCH TABLE 


~PSECT YSCMODK,QUAD 


UNIMPLEMENTED SERVICES, DEFINED TO PROVIDE CLEAN LINK 
REMOVE NAME AND VERIFY GSYSSRV ENTRY WHEN SERVICE IS IMPLEMENTED. 


CALL PER-PROCESS "USER'’ SUPPLIED PLUG-ON HANDLER FOR CHMK 
WITH UNRECOGNIZED CODES. 


. ° a 4 a Rn (LONGWORD) 
(SP) = RETURN ADDRESS TO GIVE SS$_ILL 4 ERROR 
(NORMAL RETURN IS A RET AFTER PERFORMING FUNCTION) 


JSB EXESLOAD_KDISP ; CALL LOADABLE CODE DISPATCHERS 
Gs CTLSGB_SSFILTER ; ANY eae ON? 

eee asss s peateal R1 ; YES, SET THE EXCEPTION CODE 
BRW INHERCP : DEAL WITH BAD CODE 


wn" 
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5$: MOVL  a@#CTLSGL_USRCHMK,R1 ; GET PER=PROCESS VECTOR 
BEQL 10$ ; NOT PRESENT, TRY FOR SYSTEM WIDE 
JSB (R1) : CALL PER=PROCESS HANDLER 
; RETURNS ONLY IF CODE IN RO IS NOT 
; CALL SYSTEM-WIDE "'USER'’ SUPPLIED PLUG-ON HANDLER FOR CHMK 
; WITH UNRECOGNIZED CODES. 
: RO - CODE FROM CHE / CHAK (LONGWORD) Li: 
; R1 = ADDRESS OF ROUT 
: (SP) = RETURN ADDRESS TO GIVE SS$_ILLSER ERRO 
; (NORMAL RETURN IS A RET AFTER PERFORMING FUNCTION) ; 
; HANDLED BY PER PROCESS HANDLER ; 
10$: MOVL LOEXESGL_USRCHAK RI ; ELSE GET SYSTEM WIDE VECTOR F 
BEQL o$ ; NOT PRESENT. ILLEGAL SERVICE ; 
JSB R1) : CALL SYSTEM WIDE HANDLER ; 
208 : RETURN ONLY IF ILLEGAL CODE ; 
EXESALCDNP: : ; 
EXESCLRPAR: 3 b 
EXESOLCDNP: ; : 
EXESFAILURE: : ; THIS PROCEDURE ALWAYS FAILS 
NOP 
NOP 
ILLSER: MOVZUL #SS$_ILLSER,RO SILLEGAL SYSTEM SERVICE 
EXESSUCCESS: : ; THIS PROCEDURE ALWAYS SUCCEEDS 
NOP : THESE TwO IN NSTRU CTIONS CAN ALSO 
NOP ; SERVE AS A HARRLESS ENTRY MASK 
mOVZUL #SS$_NORMAL ,RO ; RETURN SUCCESSFUL STATUS 
FF sMPSWITCH DEFINED 
>PSECT hpscnone gevte 
“IFTF «= MPSWIT 
SSFAILMAIN: :SSFAIL MAIN LOGIC 
MOVL  G*CTLSGL_PCB.R1 7GET PCB ADDRESS 
TSTW PCBSW_MTRCNT(R1) :MUTEX COUNT ZERO? u1 
BNEQ “IF NEQ NO 
EXTZV #PSLSV_CURMOD,#PSL$S_CURMOD.- ;EXTRACT PREVIOUS MODE FROM 
4(SP),= =(5P) 7SAVED PSL : 
ADDL  $#PCBS$V_SSFEXC, (SP) [ADD IN BASE BIT NUMBER : 
(SPDs, Peasi Me tsiRy). 10$ :IF CLEAR, FAILURE EXCEPTION DISABLED 3 
MOVPSL -(SP) “GET CURRENT PSL 3 
EXTZV aPSLSV_ CURMOD .#PSL$S_CURMOD, (SP), (SP)+ ;IF CURRENT MODE 1S : 
BNEQ 5$ ;NOf KERNEL, THEN BRAN ; 
SETIPL #0 {FORCE IPL f0 0 FOR ERROR PATH : 
5$: jmp EXESSSFAIL ;GENERATE SYSTEM SERVICE FAILURE EXCEPTION ; 
10$: REI SAND RETURN FROM SERVICE WITH ERROR STATUS : 
208:  EXTZV #PSLSV_IPL.#PSLS$S_IPL,- :EXTRACT PREVIOUS IPL FROM ; 


| H 
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(SP) ,=(SP) : SAVED Pst 
CMPL =: (SP) +, #IPLS_ASTDEL :TEST IF A T ELEVATED I IPL 
BGEG 108 SIF $0 DO BUGCHE 
BUG CHECK MTXCNTNONZ JF AT ATAL MUTEX COUNT NONZERO AT SERVICE EXIT 
5$: iFPRIMARY <JMP GERESSSFAIL> s1F PRIMARY, THEN CONTINUE RIGHT ALONG 
“IF SECONDARY RETURN PROC ESS 10 PRIMARY 
EXTZV Pst sy ~CURMOD .#P SL $S_CURMOD,4(SP),-(SP) ;CREATE PSL WITH PREV 
ROTL PRVROD , (SP), ( (SP) ; MODE CORRECT AND CURRENT MODE = KERNEL 
PUSHAB GEXESSSFA Alt TREFLECT THE EXCEPTION 
BRW HED ; AND RETURN PROCESS TO PRIMARY 
108: REL RETURN FROM SERVICE WITH ERROR STATUS 
208: IFPRIMARY <BUG_ CHECK MTXCNTNONZ, FATAL> :PRIMARY VERSION OF BUGCHECK 
SECBUG_ CHECK MTXCNTNONZ,FATAL | ;MUTEX COUNT NONZERO AT SERVICE EXIT 
.IFT ~ ;MPSWITCH NOT OT BEF INES 
: UPDSECW = UPDATE SECTION AND WAIT COMPOSITE SERVICE 
-ENABL LSB 
EXESUPDSE CW: 
CHMK 1° #UPDSEC SUPDATE THE SECTION 
BLBC R040 [BRANCH IF ERROR 
MOVL ;SAVE STATUS FROM UPDSEC 


ASSUME UPDSECS_EFN+4 EQ UPDSECS_10SB 
mMOVa YODSECS EFN(AP),-(SP) FPUSHL IOSB(AP), PUSHL EFN(AP) 
BRB 0s ;SYNCHRONIZE EFN AND [OSB 


> COMMON WAIT CODE FOR SGETDVIW, SGETUPIW, SGETSYIW, SSNDJBCW SYSTEM SERVICES 
: INPUTS: 


RO = STATUS FROM hy NON-WAITING VERSION OF THE SERVICE 


EFN(AP) = EVENT FL 
1OSB(AP) = 1/0 STATUS BLOCK ADDRESS 
GETJPI_SYNCH_MASK = “M<R2> ;REGISTERS USED bY THIS CODE 
SOTHER THAN RO AND R1 
GETJPI_SYNCH: 
BLBC ~=—_- RO, 408 ;BRANCH IF ERROR FROM ORIGINAL SERVICE 
MOVL  RO.R2 TSAVE STATUS FROM ORIGINAL SERVICE 
ASSUME GETJPI$_I0SB EQ GETDVI$_10SB 
ASSUME GETJPI$—10SB EQ GETSYI$~10SB 
ASSUME GETJPI$~10SB EQ SNDJBCS~10SB 
PUSHL GETJPI$~10SB(AP) 7GET 10SB PARAMETER 
PUSHL  GETJPIS EENCAP) iGET EVENT FLAG PARA MET ER 
208: CALLS #2,6*SYS$SYNCH :WAIT FOR EFN AND I0SB TO BE SET 
BLBC ~=_-« ROO. 40 :] OR TURW THAT STATUS 
MOVL R2.R SOTHERWISE RESTORE ORIGINAL STATUS 
408: RET [AND RETURN 
.DSABL LSB 


; JUMPS TO REAL SYSTEM SERVICE ENTRY POINT ARE DEFINED HERE IF THE CASE 


DPT! 
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TABLE WON'T REACH 


jmp EXESSIDTOASC + 2 
. .IFTF | sMPSWITCH 
KCASMAX=KCASCTR=2 


-ENDC =; MPSWITCH 
-ENDC =; LIBSWITCH 


.IFTF «©: RMSSWITCH 

cIF NDF ,MPSWITCH 

“IF NDF ,LIBSWITCH 
RCASMAK=RCASCTR=<1 #RCASHIND 


-ENDC =; MPSWITCH 
o IFF :RMSSWITCH 


“IF NDF ,MPSWITCH 
gbsect SSSRMSVEC BYTE ,NOWRT 


Rnssssvexc=.-2 
MOVL R2,RO 


RET 
-ENDC =; MPSWITCH 
-ENDC =; RMSSWITCH 


: ENTRY MASKS ARE PLACEHOLDERS CNLY 
EXESIMGACT: F 
<WORD 0 
EXESSIMGACT + 2 
EXESASCTOID: : 
WORD 
jmp EXESSASCTOID + 2 
EXESF INISH_RDB: : 
. WORD 
jmp EXESSFINISH_RDB + 2 
EXESIDTOASC: : 
.WORD 


THESE ARE FOR USE WITHIN THIS MODULE ONLY = NOT GLOBAL ENTRY POINTS 


IMAGE ACTIVATION 


; ASCII TO IDENTIFIER CONVERSION 


; FINISH RDB CONTEXT STREAM 


IDENTIFIER TO ASCII CONVERSION 


;NOT AN RMS EXEC MODE SERVICE 


; SERVICE TO MERELY MOVE RMS STATUS CODE IN R2 TO RO AND RET, 
; THUS GENERATING A SYSTEM SERVICE FAILURE EXCEPTION IF ENABLED 


MOVE STATUS CODE TO RO 
zAND LET RET DO THE REST 
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Inputs: 


Calling 
Returns 


EXESLOB_SYNCH® 


10$: CLRL 
208: CMP 


30$: CLAL 
40$: CALLS 
8) 


50$: RET 


Outputs: 
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- Synchronize Loadable Services 


; EXESLDB_SYNCH = Synchronize Loadable Service 


This routine performs a SSYNCH service in the mode of the 
caller of a loadable service 


RO - Main Service Status 

(SP) - 10SB argument number 

4(SP) = Event flag argument number 

(FP) - Service Call Frame 

RO - Status Code 

coguenses 

J @#EXESLDB_SYNCH 

Via: 

RET instruction 

RO,50$ ; get out if service had error 
RO 3 save service status 
(AP) ,4(SP) 3 was an ae specified 
10$ : branch if not 

4(SP) rs ; get argument offset 
(AP) CRO : push 10SB address 

20$ 

-(SP) : no IOSB so pass 0 to synch 
(AP) ,12(SP) 3; was an EFN specified? 
30$ : branch if not 

12(SP) ,RO 3; get argument offset 
(AP) CRO) ; push EFN number 

40$ 

-(SP) ; no EFN so pass 0 


#2,G*SYSS$SYNCH 
(SP)+,RO 


:; call synch system service 
3 restore main service status 


SYS! 


D! 
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Wail VAX/VMS V4.0 ) | Le ND PROPRIETARY 


